Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: Renaming files in dir

by larus (Acolyte)
on Mar 19, 2009 at 09:17 UTC ( #751652=note: print w/ replies, xml ) Need Help??


in reply to Re: Renaming files in dir
in thread Renaming files in dir

Well, I tried this

foreach my $file (@fileet) { my $newfile = 0; $newfile =~ s/ä//g; $newfile =~ s/ö//g; move("$file", "$path/$newfile"); }
but this produces no output. What I'm doing wrong here?


Comment on Re^2: Renaming files in dir
Download Code
Re^3: Renaming files in dir
by Utilitarian (Vicar) on Mar 19, 2009 at 10:18 UTC
    foreach my $file (@fileet) { my $newfile = $file; $newfile =~ s/ä//g; $newfile =~ s/ö//g; move("$file", "$path/$newfile"); }
      Thanks, there is still a problem, because this code does not rename those files. What should I do?
      #!/bin/perl #usage: #C:\Perl>perl Print_dir_sizes.pl "C:/Perl/" use warnings; use strict; use File::Copy; my $path = $ARGV[0]; die "You must supply a full directory path" unless (-e $path && -d $pa +th); my @dirs; opendir(DIR, $path) || die "can't opendir $path: $!"; my @fileet = grep { -f "$path/$_" } readdir(DIR); closedir(DIR); foreach my $file (@fileet) { my $newfile = $file; $newfile =~ s/ä//g; $newfile =~ s/ö//g; move("$file", "$path/$newfile"); }
        Oh yes, I found it:
        foreach my $file (@fileet) { my $newfile = $file; $newfile =~ s/ä//g; $newfile =~ s/ö//g; move("$path/$file", "$path/$newfile"); }
        The error was here
        move("$path/$file", "$path/$newfile");

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://751652]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2014-09-20 21:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (163 votes), past polls