Stupid problem

DanTaylor · 02-01-2006, 06:53 PM

Can anyone help me with this stupid error that for some reason I can't figure out?
perl code:

#$cmd is user input
use File::NCopy;
...
...
if ($cmd =~ /^burn/) {
if ($cmd =~ /^burn\s+-b/) {
#lots of burn code
}elsif ($cmd =~ /^burn\s+.*/ {
#Here is the problem(I think)

$cmd =~ s/burn\s+//;
@fls = split /\s+/, $cmd;

for (@fls) {

print "Copying $_\n";
copy $_, "/mydir/"
or die "You stupid perl noob! you can't even write simple code!\n $!\n";
}
}
}

chrism01 · 02-01-2006, 10:15 PM

Can you say what the prob is, and please use < code > < / code > tags around your code.

aanbar · 02-02-2006, 01:39 PM

Hello ,

we have a problem here , you didn't write out the error you got

when you run this script plus it's not the complete source

i think you should be using warnings and strict in your code

which will help you alot

DanTaylor · 02-02-2006, 03:01 PM

get back to you on the errors, I don't have access to my computer right now.

peter_89 · 02-02-2006, 03:06 PM

Quote:

"You stupid perl noob! you can't even write simple code!\n $!\n"

It actually wrote that?

bigearsbilly · 02-03-2006, 10:41 AM

does it compile?
does it fail at run-time?

DanTaylor · 02-03-2006, 03:45 PM

Quote:

Originally Posted by peter_89

It actually wrote that?

Of course, I always have to insult myself while I'm programming.