files a nach files b kopieren - #62033 (Allgemeines zu Perl)

renee

2006-01-18 23:03

User since
2003-08-04
14371 Artikel
ModeratorIn

Hier hast Du etwas ueberfluessiges drin:

Code: (dl )

      if ($old eq $new_files) {
      }
      else {
      copy("$old", "$new_files") or die "Copy failed: $!";
      }

Da sagst Du besser:

Code: (dl )

1
2
3

      if ($old ne $new_files) {
      copy("$old", "$new_files") or die "Copy failed: $!";
}

oder

Code: (dl )

1
2
3

unless ($old eq $new_files) {
      copy("$old", "$new_files") or die "Copy failed: $!";
}