Response that I am getting is this: /home/iphone/Maildir/new/. /home/iphone/MailDir/cur/. /home/iphone/Maildir/new/1340841279.M908367P21767.krasowski,S=2294,W=2338 /home/iphone/MailDir/cur/1340841279.M908367P21767.krasowski,S=2294,W=2338 /home/iphone/Maildir/new/.. /home/iphone/MailDir/cur/.. /home/iphone/Maildir/new/1340841583.M454288P21927.krasowski,S=2339,W=2384 /home/iphone/MailDir/cur/1340841583.M454288P21927.krasowski,S=2339,W=2384 But no file is moved. Hmm, Any idea what is th problem? Why I can not move these files?? Thanks Robert#!/usr/bin/perl use strict; use warnings; my $newDir = "/home/iphone/Maildir/new"; my $curDir = "/home/iphone/MailDir/cur"; my $file; opendir(DIR, "$newDir"); my @FILES= readdir(DIR); closedir DIR; foreach (@FILES) { $file = $_; my $newFile=$newDir."\/".$file; my $curFile=$curDir."\/".$file; print "$newFile\n"; print "$curFile\n"; rename $newFile, $curFile; }
In reply to Re^2: Usig file name without backslash escape
by rkrasowski
in thread Usig file name without backslash escape
by rkrasowski
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |