Thread Grenzen setzen klappt nicht!
(7 answers)
Opened by Gast at 2008-01-16 12:00
Probier mal:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 #!/usr/bin/perl use strict; use warnings; use File::Copy qw(copy); my $quelle = $ARGV[0]; my ($ziel) = $quelle =~ /(.*)\.[^.]+$/; copy( $quelle, $ziel . '2.txt' ); my @entries; { open my $in,"<",$quelle or die "konnte $quelle nicht oeffnen,$!\n"; local $/ = "DUT No\n"; while( my $entry = <$in> ){ chomp $entry; next unless $entry; push @entries, $entry; } close $in; } for my $entry ( @entries ){ my ($serial) = $entry =~ /Measurement:([0-9]{10})/; open my $out, '>', $serial . '.txt'; print $out "DUT No\n",$entry; close $out; } Wichtig: Wenn Du mit Regulären Ausdrücken arbeitest, musst Du auch den =~-Operator verwenden und nicht nur =. OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/) -- Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html Perl-Entwicklung: http://perl-services.de/ |