全部博文（362）
发布时间：2013-03-14 14:32:05
昨晚误删了routeros上的端口映射。要手动添加200条映射规则，写脚本了。。。将输出复制到routeeros的终端就执行了。#!/usr/bin/perl -wfor(8000..8200) {say "ip firewall nat add chain=dstnat dst-address=118.x.x.x dst-port=$_ action=dst-nat protocol=tcp to-address=192.168.100.6 to-port=$_";}.........【阅读全文】
发布时间：2013-03-13 11:18:59
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-13#desc: time piece use 5.016;use strict;use warnings;use autodie;use Time::Piece;my $t = localtime(1360780381);my $real_time = $t->ymd . " " . $t->hms;say $real_time;......【阅读全文】
发布时间：2013-03-08 22:04:39
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-06#desc: Wx okuse 5.016;use strict;use warnings;use autodie;use Wx;package MyFrame;use base 'Wx::Frame';.........【阅读全文】
发布时间：2013-03-08 22:01:24
#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-06#desc: Wx okuse 5.016;use strict;use warnings;use autodie;use Wx;package MyApp;use base 'Wx::App';.........【阅读全文】
发布时间：2013-03-08 22:00:28
PerlMonks_tutorial_1.pl#!/usr/bin/perl#author: zhengsenlin#date: 2013-03-06#desc: Wx okuse 5.016;use strict;use warnings;use autodie;use Wx;package MyFrame;u.........【阅读全文】
