首页 软件开发 代码片段 ( Page 81 )

代码片段 8064

#Perl
遍历目录下所有的文件

#!perl # #作者:赵灿星 #本perl脚本用于遍历目录下所有文件,使用时请将本脚本拷贝到需要遍历的目录下,双击即可 # # use strict; use Cwd; use…

2015-12-14 933

#Perl
perl读取excel文件内容

#!/usr/bin/perl -w use strict; use feature 'say'; use Spreadsheet::ParseExcel; ####excel操作…

2015-12-14 647

#Perl
冒泡排序

#!/usr/bin/perl use strict; use warnings; use feature qw(say); my @e = qw/ 4 88 5 21 92 37…

2015-12-14 437

#Perl
根据使用频率输出dmenu的结果

#!/usr/bin/perl # sydi_dmenu --- # # Filename: sydi_dmenu # Description: This script make …

2015-12-14 277

#Perl
Perl 数据库事务处理(提交和回滚)

use DBI qw(:sql_types); my $dbh = DBI->connect('dbi:mysql:sample_db','root','password',…

2015-12-14 1,016

#Perl
Perl 根据 Windows 的错误码获取详细的描述信息

# This function takes the error number returned by the Win32::GetLastError function. #!/us…

2015-12-14 476

#Perl
Perl 使用 XML::Parser 来解析 XML 文件

use XML::Parser; my $xmlfile = "yourXML.xml"; my $parser = XML::Parser->new( ErrorConte…

2015-12-14 367

#Perl
Perl 访问 Windows 的事件日志

#!/usr/bin/perl -w use Win32::EventLog; $area = 'System'; # Default $host = $ENV{'Computer…

2015-12-14 833

#Perl
Perl Socket 客户端通讯一例

#!/usr/bin/perl print "client\n"; $AF_UNIX=1; $SOCK_STREAM=1; $PROTOCOL=0; socket(CLIENTSO…

2015-12-14 597

#Shell
Linux Shell脚本检测tomcat并自动重启

#!/bin/bash while [ true ] do url="http://www.oschina.net/"; httpOK=`curl --connect-timeou…

2015-12-13 126

#Objective-C
CGContextAddArcToPoint 绘图 画一个圆角矩形

- (void)viewDidLoad { [super viewDidLoad]; UIImageView *imageView1 = [[UIImageView alloc]i…

2015-12-13 854

#Shell
Java Web 项目打包脚本

[typhoon@TFW-CENT6-LT jweb.tfw.tfw_web_lpm]$ ll export.v0.2.5_2013-03-10_20-40.jre150 总用量 …

2015-12-13 209
1 79 80 81 82 83 672