wokanhaoziji 于 2011-12-02 12:42:41发表:
2# yanyongkg mySQL 热备份的脚本 哥哥可以写吗
年年年 于 2011-12-02 10:40:24发表:
#!/usr/bin/perl -w while(1) { my $str = ; chomp($str); if ($str =~ m/\W+/) { system("echo It contains illegal words."); } else { system("echo It is OK!!"); } exit 0; }
yanyongkg 于 2011-12-01 17:28:45发表:
#!/bin/bash read -p "Please input string: " var awk '{if(a ~ /^[0-9a-zA-Z][0-9a-zA-Z]*$/){print a" is OK!"} else{gsub("[0-9a-zA-Z]"," ") for(i=1;i<=NF;i++){ print $i" is lllegal character"} } }' a=$var <<< $var
wokanhaoziji 于 2011-12-02 12:42:41发表:
2# yanyongkg
mySQL 热备份的脚本 哥哥可以写吗
年年年 于 2011-12-02 10:40:24发表:
#!/usr/bin/perl -w;
while(1)
{
my $str =
chomp($str);
if ($str =~ m/\W+/)
{
system("echo It contains illegal words.");
}
else
{
system("echo It is OK!!");
}
exit 0;
}
yanyongkg 于 2011-12-01 17:28:45发表:
#!/bin/bash
read -p "Please input string: " var
awk '{if(a ~ /^[0-9a-zA-Z][0-9a-zA-Z]*$/){print a" is OK!"}
else{gsub("[0-9a-zA-Z]"," ")
for(i=1;i<=NF;i++){
print $i" is lllegal character"}
}
}' a=$var <<< $var