#!/usr/bin/perl `find /bak/ >list.txt`; open LIST,"/root/list.txt"; while (<LIST>…
#!perl # #作者:赵灿星 #本perl脚本用于遍历目录下所有文件,使用时请将本脚本拷贝到需要遍历的目录下,双击即可 # # use strict; use Cwd; use…
#!/usr/bin/perl -w use strict; use feature 'say'; use Spreadsheet::ParseExcel; ####excel操作…
#!/usr/bin/perl use strict; use warnings; use feature qw(say); my @e = qw/ 4 88 5 21 92 37…
#!/usr/bin/perl # sydi_dmenu --- # # Filename: sydi_dmenu # Description: This script make …
use DBI qw(:sql_types); my $dbh = DBI->connect('dbi:mysql:sample_db','root','password',…
# This function takes the error number returned by the Win32::GetLastError function. #!/us…
use XML::Parser; my $xmlfile = "yourXML.xml"; my $parser = XML::Parser->new( ErrorConte…
#!/usr/bin/perl -w use Win32::EventLog; $area = 'System'; # Default $host = $ENV{'Computer…
#!/usr/bin/perl print "client\n"; $AF_UNIX=1; $SOCK_STREAM=1; $PROTOCOL=0; socket(CLIENTSO…
#!/usr/bin/env perl use utf8; use strict; use warnings; use 5.010001; use WWW::Mechanize; …
#!/usr/bin/perl -w my $c_file = $ARGV[0]; my $c_file_out = $ARGV[1]; open(CF,"<$c_file"…