리눅스 a2p

Jmnote bot (토론 | 기여)님의 2020년 11월 2일 (월) 02:39 판 (봇: 자동으로 텍스트 교체 (-source +syntaxhighlight))
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

1 개요[ | ]

Awk to Perl translator
리눅스 a2p
/usr/bin/a2p
  • awk 스크립트를 perl 스크립트로 변환하는 리눅스 명령어

2 실습[ | ]

Console
Copy
[root@zetawiki ~]# cat wc.awk
#!/bin/awk -f
{
    w += NF
    c += length + 1
}
END { print NR" lines, "w" words, "c" charaters" }
Console
Copy
[root@zetawiki ~]# ./wc.awk /etc/issue
3 lines, 9 words, 47 charaters
Console
Copy
[root@zetawiki ~]# a2p wc.awk
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

$[ = 1;			# set array base to 1
$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

while (<>) {
    chomp;	# strip record separator
    @Fld = split(' ', $_, -1);

    $w += $#Fld;
    $c += length($_) + 1;
}

print $. . ' lines, ' . $w . ' words, ' . $c . ' charaters';
→ 변환된 결과(perl 스크립트 내용)가 화면에 출력됨
Console
Copy
[root@zetawiki ~]# a2p wc.awk > wc.pl
[root@zetawiki ~]# chmod 755 wc.pl
[root@zetawiki ~]# ./wc.pl /etc/issue
3 lines, 9 words, 47 charaters
→ 파일로 저장하여 실행하니 결과가 동일함

3 같이 보기[ | ]

편집자 J Jmnote Jmnote bot
  • 리눅스 디렉토리 용량 확인 du
    "현재폴더에 있는 폴더 및 파일 중에서 용량이 큰 것 순으로 10개 보기" 에서 -hs 옵션을 주면 sort가 제대로 되지 않는다고 하셨는데 sort의 -h 옵션을 이용하면 가능합니다. (-h, --human-numeric-sort) 저는 다음과 같이 합니다. du -hs * | so
  • 리눅스 반복 예약작업 cron, crond, crontab
    타사 크론 서비스를 사용하여 자신의 서버에서 호스팅 크론을 사용하여 게다가, 당신은 타사 크론 서비스 (보통이라고 webcron)를 사용할 수 있습니다 : http://EasyCron.com - 크론 작업을 설정하는 crontab을 또는 다른 작업 스케줄러의 필요성을 제거 webcron