IP Random 생성 : IP Random generation #!/usr/bin/perl # made by MaJ3stY # ######################################################################## system("cls"); sub ranip() { $ip = join(".", map int(rand(256)), 1..4); print "IP : $ip \n"; } while() { ranip(); print "Continue IP...(Enter)"; print "\n"; print "End is Ctrl + c \n"; } print "The End"; ######################################################################## 아이피 랜덤 생성 코드.. 더보기 줄 번호 매겨주는 perl 소스 코드 : Perl source code line number attached #!/usr/bin/perl use strict; use warnings; # made by MaJ3stY # ################################################################### my $line = 1; while () { printf("%d: %s", $line, $_); $line++; } ################################################################### 제가 perl 공부할때 잠깐잠깐 생각 났을때 짜본 것들 입니다. perl이 정말 간단하고 쓰기가 편하긴 하네요 ^^; 사용방법은 간단합니다. 같은 경로에 소스코드와 대상파일을 넣고 소스코드를 컴파일 시켜주시면 됩니다. Perl is what .. 더보기 이전 1 ··· 343 344 345 346 347 348 349 ··· 368 다음
