태그 : perl 요약보기전체보기목록닫기

1

die 발생 시 변수로 저장하기(perl)

use strict;use Net::FTP;my $host = "192.169.0.1";my $user = "test";my $passwd  = "test";$SIG{__DIE__} = sub {    prnt "Can't open $host\n";}my $f = Net::FTP->new($host) or die "Can...

Perl에서 Handling LONG/LOB Data 에러 발생 시

데이터 이전 작업 시 펄을 많이 사용하는데제목과 같은 에러가 발생할 수 있다. 이때 다음과 같이하자.$dbh->prepare라인 전에 아래 라인을 등록하자$dbh->{LongReadLen} = 512 * 1024;$dbh->{LongTruncOk} = 1;

특정 날짜 이전 파일 삭제

#!/usr/bin/perl -wuse strict;use POSIX;use File::Find;MAIN:{    if (! @ARGV) {        print "Usage: $0 full_dir\n";        print "Usa...

첫 라인 추가하기

특정 파일의 첫 라인에 뭔가를 추가하고싶은데좀 효율적인 방법이없을까?아래의 두가지를 생각할 수 있다.펄을 통한 첫 라인 추가perl -i~ -0777pe's/^/New first line\n/' file_name.txtsed를 통한 첫 라인 추가sed '1s/^/New first Line\n/' fine_name.txt > new_file.txt작...
1