라인 줄 수를 세어주는 perl 소스코드 : Count the number of line to line perl source code

#!/usr/bin/perl
system("cls");
system("dir");

# made by MaJ3stY #

###################################################################

print "Filename Input(ex : 123.txt) : ";

chomp($filename = <STDIN>);

if ( -e $filename ) {
 print "$filename Exist!!!!\n";
}else{
 print "$filename No!!!\n";
}

open INPUT, "$filename" or die "$filename file open error : $! ";

while(<INPUT>) {

 $linecnt++;

}
close INPUT;

print "Line Cnt : $linecnt\n";

 

###################################################################


사용법은 정말 간단합니다.

줄의 수를 세고 싶은 문서를 이 소스코드와 같은 곳에 넣고 소스코드를 실행시켜주시면 됩니다.

It is simple to use.

The source document you want to count the number of lines of code and compile the source code is put in the same.