letzte Spalte in jeder zeile ändern: die zahlen durch best. zahl teilen - #70966 (Allgemeines zu Perl)

sabrina

2006-10-19 17:06

User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]

hab ich doch schon zum beispiel: ich weis ich muss, wenn ich irgendwo was einfügen will, dann nachdem das xa0 entfernt wurde und vor dem print. Da gibt es ja nicht alzu viele Möglichkeiten.
Also hab ich folgenden CODE:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
my @files = qw(BLUBBER1.txt BLUBBER2.txt BLUBBER3.txt BLUBBER4.txt);
my $OUTPUT = 'ZIELgesamt.txt';
open(my $write_fh, '>', $OUTPUT) or die $!;
for my $file(@files){
open(my $fh,'<',$file) or die $!;
while(my $line = <$fh>){
$line =~ tr/\xa0//d;
$line[-2] /= 1024;  #kann ich einfach 2 für das vorletzte schreiben?
print $write_fh $line;
}
close $fh;
}
close $write_fh or die $!;

eigendlich müsste das doch jetzt gehen jetzt ist es allerdings nicht mehr die letzte spalte sondern die Vorletzte.
kannst du mir sagen ob ich auf dem Holzweg bin oder schonmal die richtige spur hab und ich ihn nur an die falsche stelle gesetzt habe?
das würde mir schon reichen.
Die fehlermeldung ist übrigens:

Code: (dl )

Global symbol "@line" requires explicit package name at BLUBBER5.pl line 14

lg sabrina\n\n