Hello there I am a student in desparate need of how to actually do
this perl assignment I have to do by the 12th april.
Can you give me any tips as to what I have to write in order to succeed
I doing this as I am still trying to pick this language up along with
all the other ones as I am studying Web Design.
Help would be appricated
# Q1 You are to write a script (or suite of scripts) that will perform
+ the following
# administrative tasks.
# The script is to take as an argument a directory. It is to search th
+e directory's files
# and perform the following.
# A) htm files are to be renamed html.
# B) any references to http within an htm/html file are to be changed
# C) any html tags within html files are to be converted to upper case
# (you may assume that <>s are used exclusively to identify html tags)
# D) record in a log file each file that has been modified.
# Additional tasks for additional credit
# Your script is to work recursively through any sub-directories
# Your script will not convert to upper case any SRC attributes of
+ a tag
# Your log file will record each tag converted by your program
# Data validation (really this should be part of the main spec!!!!
// This is what I have started to do but is wrong I think???
print "Enter in only a directory name"
$dirname = <>;
if ( -d $dirname)
print "$dirname is a directory thankyou \n";
@filenames = readdir(DIR);
print"Directory is a $dirname \n";
if (-d $dirname
Edit Petruchio Mon Mar 25 14:27:36 UTC 2002 - Added markup.