Help for this page

Select Code to Download


  1. or download this
       foreach(@array){
          my $item = $_;
          ...
    
  2. or download this
       foreach(@attchfiles) {   
           my $attchfilename = $_;   
           $attchfilename =~ tr/A-Z/a-z/;    
           rename($_, $attchfilename); 
        }
    
  3. or download this
       rename($_,lc) for @attchfiles;
    
  4. or download this
       for(@attchfiles){
          if ( -e lc ) {
    ...
             rename $_,lc;
          }
       }