Opened by satanica1976 at 2004-08-16 17:43
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
Hier haben wir im Wiki ein Perl/Tk-Tutorial: http://wiki.perl-community.de/bin/view/Wissensbasis/PerlTkTutorial
zum Einlesen einer Datei:
$file ist dann der Pfad zu der Datei, die der User auswählt!
noch ein paar Lesetipps: perldoc -f open
POD von Listbox\n\n
<!--EDIT|renee|1092832855-->
zum Einlesen einer Datei:
Code: (dl
)
1
2
3
4
5
6
7
my $counter = 1; # Counter für Zeilennummer
open(R_TXT,"<$file") or die $!; # Datei zum Lesen öffnen
while(my $line = <R_TXT>){ # Zeilenweise einlesen
$line = $counter." ".$line; # Zeilennummer vorne anfügen
$counter++;
}
close R_TXT; # Filehandle schließen
$file ist dann der Pfad zu der Datei, die der User auswählt!
noch ein paar Lesetipps: perldoc -f open
POD von Listbox\n\n
<!--EDIT|renee|1092832855-->
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/