Thread Zeilenangaben im Perlscript: brauch Script als Text mit Zeilenangaben (4 answers)
Opened by Gast at 2007-01-24 17:54

renee
 2007-01-24 18:00
#73590 #73590
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file';

open my $fh,'<',$file or die $!;
while(my $line = <$fh>){
    print sprintf("%4d %s",$.,$line);
}
close $fh;


edit: Die Zeilennummer steht in $.. Das ist in perlvar dokumentiert...

edit2: die 3 im sprintf auf 4 geändert, da es ja bis 1500 geht...\n\n

<!--EDIT|renee|1169654563-->
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/

View full thread Zeilenangaben im Perlscript: brauch Script als Text mit Zeilenangaben