catsquotl wrote:
Thanks everyone for your input. It finaly worked with the mmv command Stefan suggested.
Chris thanks for the script. There seem to be a few syntax errors. Good exersise for me to debug as i am going try to learn Perl soon so I won`t have to bother all of you with these questions.
Hmmm. Works for me. Ah, I see what it is (after cutting and pasting from the email and then trying to run it) - the line wrapping in Netscape has put the end of the comment from one line onto the following line. These two lines should actually only be one line: if ($ARGV[0] ne "") { # If a directory is specified, use that The comment is unecessary, so you can just replace these 'two' lines with: if ($ARGV[0] ne "") { 'use' also happens to be a statement in Perl, which is what causes the huge long error message. I've also noticed that I missed a line out when I cut and pasted into Netsape, although it will still work if you specify the directory. Insert the following as the second line: $rendir = "./"; I'm glad you got it sorted anyway. I know you don't need this, but I thought I'd just correct it for the sake of completeness. In short, replace: #!/usr/bin/perl if ($ARGV[0] ne "") { # If a directory is specified, use that with: #!/usr/bin/perl $rendir = "./"; if ($ARGV[0] ne "") { Sorry about that, Chris P.S. Have fun learning Perl. -- __ _ -o)/ / (_)__ __ ____ __ Chris Reeves /\\ /__/ / _ \/ // /\ \/ / ICQ# 22219005 _\_v __/_/_//_/\_,_/ /_/\_\ -- To unsubscribe send e-mail to suse-linux-e-unsubscribe@suse.com For additional commands send e-mail to suse-linux-e-help@suse.com Also check the FAQ at http://www.suse.com/Support/Doku/FAQ/