Opened by sabrina at 2006-08-07 10:33
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Für was brauchst Du $Felder? Lies Dir bitte mal den Artikel zu 
use strict durch.
Anstelle von chop solltest Du besser chomp verwenden, da chop auf jeden Fall das letzte Zeichen entfernt (auch wenn es ein normaler Buchstabe oder so ist), während chomp nur den Zeilenumbruch entfernt - wenn einer da ist.
Die Anzahl von Datensätzen bekommst Du mit my $anzahl = scalar(@_daten); raus.
Probier mal:
use strict durch.Anstelle von chop solltest Du besser chomp verwenden, da chop auf jeden Fall das letzte Zeichen entfernt (auch wenn es ein normaler Buchstabe oder so ist), während chomp nur den Zeilenumbruch entfernt - wenn einer da ist.
Die Anzahl von Datensätzen bekommst Du mit my $anzahl = scalar(@_daten); raus.
Probier mal:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
use strict;
use warnings;
my $file = 'blubb.txt';
open(my $fh,"<",$file) or die $!;
my @daten = <$fh>;
close $fh;
chomp @daten;
for(@daten){
s/\s//g;
}
my $neue_datei = 'test.txt';
open(my $w_fh,">",$neue_datei) or die $!;
print $w_fh $_,"\n" for(@daten);
close $w_fh;
print scalar(@daten)," Datensätze verarbeitet\n";
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/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/