Hallo,
ich wollte ein bestimmtes Verzeichnis öffnen und die Dateien, die dort liegen nacheinander öffnen und durchsuchen, danach diese unter anderem Namen dort oder auch wo anders abspeichern!!
Hier ist mein Code:
$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+).\w+/$1/;
$ziel = $x;
open ($INPUT,")
{
if ($line =~ /.CBT/gsm)
{
$cbt = 1;
}
elsif ($line =~ /BARCODE/gsm)
{
$barcode = 1;
}
elsif ($line =~ /AATHD000000.000/gsm)
{
$falscheangabe = 1;
}
elsif ($line =~ /PASS/)
{
$start_pos = tell($INPUT);
}
elsif ($line =~ /FAIL/)
{
$end_pos = tell($INPUT);
}
}
if ( $end_pos)
{
$status = ‚01‘;
$result = ‚Failed‘;
seek($INPUT, $start_pos, 0);
$hit;
while ($line = )
{
chomp($line);
last if $end_pos $ziel.txt") or die „konnte $ziel nicht oeffnen,$!\n“;
print OUTPUT „{@BATCH|$sachnummer||GOEPEL_BSCAN||KDSNR:blush:kundennummer|ICT||PB/PL_P|uqm161|||\n“;
print OUTPUT „{@BTEST|$seriennummer|$status|$starttest|||||n|n|$endetest||1|\n“;
print OUTPUT „{@RPT|$result}\n“;
print OUTPUT „{@RPT|$fehler}\n“ if $fehler;
close OUTPUT;
}
Kann mir jemand helfen???
BITTTEEEE!