#!/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 …
#!c:/perl/bin use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; $tab…
#!/usr/bin/perl -w use Win32::OLE; $filename = 'wordFile.doc'; $doc = Win32::OLE->GetOb…
#!/bin/perl use AnyDBM_File; dbmopen(%states, "statedb", 0666) || die; TRY: { print "state…
#!/usr/bin/perl -w use Win32; $username = Win32::LoginName(); print "User name: $username\…
use LWP::Simple; use HTML::LinkExtor; $html = get("http://www.oschina.net"); $link_extor =…
/* tab panel 不显示Echarts 图表问题 */ /* bootstrap hack: fix content width inside hidden tabs */…
.animate-area { background-image: url(image/twitter-logo-bird.png), url(image/treehouseFro…