Opened by perl-anfaenger at 2007-04-03 17:29
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
Ein paar allgemeine Anmerkungen:
*) Verwende lexikalische Dateihandles: open my $fh,'>> trend.csv' ;
*) Verwende am Besten die 3-Arg-Form von open, also open my $fh,'>>', 'trend.csv' ;
*) Du solltest Fehlerbehandlung machen. Zum Beispiel bei open aus open my $fh,'>>','trend.csv' ; das hier machen open my $fh,'>>','trend.csv' or die $!;
*) Elemente eines Arrays spricht man so an: $array[$index], also aus dem @ ein $ machen.
*) Anstatt split und join kannst Du einfach auch alles ersetzen.
*) Konkatenationen von Strings geht mit . Also aus
ein
machen.
Man kann print auch mit einer Liste als Argument aufrufen. Du könntest also auch
machen.\n\n
<!--EDIT|renee|1175608901-->
*) Verwende lexikalische Dateihandles: open my $fh,'>> trend.csv' ;
*) Verwende am Besten die 3-Arg-Form von open, also open my $fh,'>>', 'trend.csv' ;
*) Du solltest Fehlerbehandlung machen. Zum Beispiel bei open aus open my $fh,'>>','trend.csv' ; das hier machen open my $fh,'>>','trend.csv' or die $!;
*) Elemente eines Arrays spricht man so an: $array[$index], also aus dem @ ein $ machen.
*) Anstatt split und join kannst Du einfach auch alles ersetzen.
*) Konkatenationen von Strings geht mit . Also aus
Code: (dl
)
1
2
3
4
5
6
7
8
satz1[0]";"satz1[1]"\n"
satz2[0]";"satz1[1]"\n"
satz3[0]";"satz1[1]"\n"
satz4[0]";"satz1[1]"\n"
satz5[0]";"satz1[1]"\n"
satz6[0]";"satz1[1]"\n"
satz7[0]";"satz1[1]"\n"
satz8[0]";"satz1[1]"\n";
Code: (dl
)
1
2
3
4
5
6
7
8
9
print DATEIA
$satz1[0].";".$satz1[1]."\n".
$satz2[0].";".$satz1[1]."\n".
$satz3[0].";".$satz1[1]."\n".
$satz4[0].";".$satz1[1]."\n".
$satz5[0].";".$satz1[1]."\n".
$satz6[0].";".$satz1[1]."\n".
$satz7[0].";".$satz1[1]."\n".
$satz8[0].";".$satz1[1]."\n";
Man kann print auch mit einer Liste als Argument aufrufen. Du könntest also auch
Code: (dl
)
1
2
3
4
5
6
7
8
9
print DATEIA
$satz1[0],";",$satz1[1],"\n",
$satz2[0],";",$satz1[1],"\n",
$satz3[0],";",$satz1[1],"\n",
$satz4[0],";",$satz1[1],"\n",
$satz5[0],";",$satz1[1],"\n",
$satz6[0],";",$satz1[1],"\n",
$satz7[0],";",$satz1[1],"\n",
$satz8[0],";",$satz1[1],"\n";
<!--EDIT|renee|1175608901-->
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/