Fil behandling

#! /usr/bin/perl

use strict;
use FileHandle;

my $cmd = "cp"; # "mv" hvis du vil flytte dem;

my $path = "/data";
my $outpath1 = "/tmp/test1";
my $outpath2 = "/tmp/test2";
my $fh;

my $out;
my @ary = glob("$path/*");
        foreach $out (@ary) {
          $fh = new FileHandle("< $out") ;

          while (<$fh>)  {
            if ( $_ eq "<CC028A>") {
              `$cmd $out $outpath1`;
            } elsif ( $_ eq "<CC029A>") {
              `$cmd $out $outpath2`;
          }
          }
}

Vil dette også virke på win 2k platformen?

Kan man ikke få de filer der er i et dir ind i et array eller sådan?

my @ary = glob("$path/*");

så ligger filerne i @ary

det er skrevet på linux, så du skal lave kommandoerne om (cp - copy og mv -move) samt ændre "/" til "\"

forresten så er det er ikke filerne per se - men navnene