Please help. I\'m really stuck and I cant figure this out. Please don\'t copy pa

Question

Please help. I'm really stuck and I cant figure this out. Please don't copy paste a perl script from another answer as I've already gotten it like 3 times and its not right( this is in ksh not perl). I'm going to start reporting it to chegg.

The purpose of this script is to change the name of files/directories with spaces in the name to have a dash(-). So if a file/directory were named "A B", the new name would be A-B. The script will work on a directory specified on the command line and replace the spaces in the names for all files/directories underneath that directory.

Modify the script below following instructions in the script.

The options to the script are as follows:

-f the -f says to only rename files

-d the -d says to only rename directories

Both -d and and -f may be specifed.

<directory-name> the name of the directory that you will be processing.

For example:

Given the following

$ ls
C D/                 dirs.tar             fix-spaces*

And the directory "C D" contained the following structure

./C D
./C D/E F
./C D/E F/G H
./C D/E F/G H/J    K
./C D/E F/G H/J    K/a b
./C D/E F/G H/a b
./C D/E F/a b
./C D/a b

After the script was run,

fix-space -f -d "C D"

the directory structure would be as follows:

C-D
C-D/E-F
C-D/E-F/G-H
C-D/E-F/G-H/a-b
C-D/E-F/G-H/J----K
C-D/E-F/G-H/J----K/a-b
C-D/E-F/a-b
C-D/a-b

THIS IS THE SCRIPT:

#!/usr/bin/ksh

USAGE="$0 -f directory
$0 -d directory
$0 -d -f directory

-f rename files
-d rename directories
"

usage ()
    {
    print -u2 "$USAGE"
    exit 1
    }

pathname ()
    {
    # function provided
    print -- "${1%/*}"
    }

basename ()
    {
    # function provided
    print -- "${1##*/}"
    }

find_dirs ()
    {
    # function provided for the student
    find "$1" -depth -type d -name '* *' -print
    }

find_files ()
    {
    # function provided
    find "$1" -depth -type f -name '* *' -print
    }

my_rename()
    {
    # you must implement this function to my_rename
    # $1 to $2
    # The following error checking must happen:
    #    1. check if the directory where $1 resided is writeable,
    #      if not then report an error
    #    2. check if "$2" exists -if it does report and error and don't
    #      do the mv command
    #   3. check the status of the mv command and report any errors
          : # remove this line after the function is coded
    }

fix_dirs ()
    {
   # you must implement this function
    # to actually call the my_rename funtion to
    # change the name of the directory from having spaces to
    # changing all of the spaces to -'s
    # if the name were "a b", the new name would be a-b
    # if the name were "a   b" the new name would be a----b
          : # remove this line after the function is coded
    }

fix_files ()
    {
    # you must implement this function
    # to actually call the my_rename funtion to
    # change the name of the file from having spaces to
    # changing all of the spaces to -'s
    # if the name were "a b", the new name would be a-b
    # if the name were "a   b" the new name would be a----b
          : # remove this line after the function is coded
    }

WFILE=
WDIR=
DIR=

if [ "$#" -eq 0 ]
   then
   usage
   fi

while [ $# -gt 0 ]
    do
    case $1 in
    -d)
        WDIR=1
        ;;
    -f)
        WFILE=1
        ;;
    -*)
        usage
        ;;
    *)
    if [ -d "$1" ]
        then
        DIR="$1"
    else
        print -u2 "$1 does not exist ..."
        exit 1
        fi
    ;;
    esac
    shift
    done

# you must implement the following:
# - if the directory was not specified, the script should
#   print a message and exit

# - if the Directory specified is the current directory, the script
#   print a error message and exit

# - if the directory specified is . or .. the script should print
#   an error message and exit

# - if both -f and -d are not specified, the script should print a
#   message and exit
#

if [ "$WDIR" -a "$WFILE" ]
    then
    fix_files "$DIR"
    fix_dirs "$DIR"
elif [ "$WDIR" ]
    then
    fix_dirs "$DIR"
elif [ "$WFILE" ]
    then
    fix_files "$DIR"
    fi

Explanation / Answer

#!/usr/bin/perl

&Space_dash(`find . -type d`);
&Space_dash(`find . -type f`);

sub Space_dash
{
    ($elements)=@_;
    @t=split / /,$elements;

    for $e (@t)
    {
    $_=$e;
    s/^.///;
    # non ascii transliterate
    tr [€-ÿ][_];
    tr [- ][_];
    # special characters we do not want in paths
    s/[ -,;?+'"![]()@#]/_/g;
    # multiple dots except for extension
    while (/..*./)
    {
        s/./_/;
    }
    s/_+/_/g;
    next if ($_ eq $e ) or ("./$_" eq $e);
    print "$e -> $_ ";
    Space_dashline ($e,$_);
    }
}

Related Questions

Navigate

• Browse (All)
• Browse P
• Subjects