Numbering Lines in Multiple Files : File Output « File « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » File Output

Numbering Lines in Multiple Files

    



#!/usr/bin/perl

use warnings;

use strict;

my $lineno;

my $current = "";

while (<>) {

    if ($current ne $ARGV) {

        $current = $ARGV;

        print "\n\t\tFile: $ARGV\n\n";

        $lineno=1;

    }

    print $lineno++;

    print ": $_";

}

Related examples in the same category

1.	Print message in case of file open failure
2.	Print out file line number
3.	Print text to file
4.	Prints the size of a file in bytes.
5.	Output file line by line
6.	Output file

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.