共 50 篇文章
显示摘要每页显示  条
#非标量返回值#!/usr/bin/perl -wuse strict;use 5.012;my $fredman = 5;my $barneyman = 10;my @c = &list_from_fred_to_barney ($fredman,$barneyman);sub list_from_fred_to_barney { my ($fred,$barney) = @_; if ($fred <$barney) { #Cont upwards from $frd to $barney $fred..$barney; } else { #...
# rename $_, $filename if $filename =~s/(.*)\.exe\.lnk/$1\.lnk/g;# rename $_, $filename if $filename =~s/(.*)\.exe - 快捷方式\.lnk/$1\.lnk/g; # rename $_, $filename if $filename =~s/(.*) - 快捷方式\.lnk/$1\.lnk/g;# rename $_, $filename if $filename =~s/(.*) (?:\(\d+\))\.lnk/$1\.lnk/g; #} #&shortcut...
sub opdirf{ #遍历文件夹 my $dir = shift; my $count; if(-d $dir){ chdir $dir or die "can''t chdir $dir: $!"; #进入文件夹 my @files=glob("*.java"); foreach my $file (@files){ ++$count; modifile1($file); modifile($file, $dir); ...
写入多个文件perl脚本。#文件数组sub pushfile { #push文件子程序 my $filename=shift; my @file; open(IFH,$filename) or die "Cann\''t open the file:$!"; while (@file=<IFH>) { push @strs,"$filename\n\n";#push文件名 push @strs,"@file\n\n"; } close IFH;}foreach...
两个关于汉字编码perl脚本No1 输出文件名包含汉字的脚本#!/usr/bin/perl -wuse strict;use utf8;open(FH, "<:encoding(utf8)","a.txt") or die $!;open(OFH, ">:encoding(utf8)", "a汉字.txt") or die $!;my @strs=<FH>;foreach (@strs){ if ($_=~s/^\s+$//g) { print OFH $_; ...
perl统计文件字数脚本#!/usr/bin/perl -wuse strict;use 5.016;my %count;my $total;my $valid;open (FILE,"<test.txt") or die $!;while(<FILE>){foreach (split){ $total++;} } print "total things = $total, valid words = $valid\n";foreach my $word (sort keys %count){ print "'...
文件改名,删除文件perl脚本。#!/usr/bin/perl -wuse strict;#&delfile;&renfile;sub renfile { @ARGV = glob(''*.bak'');foreach (@ARGV){ ( my $name=$_ )=~s/(.*)\.bak/$1/g;rename $_,$name;}}sub delfile{ @ARGV=glob(''*.bak'');foreach (@ARGV){ unlink $_;} }
文件添加,减少几行文字perl脚本#!/usr/bin/perl -wuse strict;use 5.010;#&editfile;&editfile_1;#增加版权子程序sub editfile{ @ARGV = glob(''*.txt''); $^I = ".bak"; foreach(@ARGV){ while (<>) { if (/\A#!/){ print $_.= "## Copyright (C) 201...
(3)根据部分文件名查找方法有时我们知道只某个文件包含有abvd这4个字,那么要查找系统中所有包含有这4个字符的文件可以输入下面命令:find /-name ’*abvd*’输入这个命令以后,Linux系统会将在/目录中查找所有的包含有abvd这4个字符的文件(其中*是通配符),比如abvdrmyz等符合条件的文件都能显示出来。umask设置用户文件和目录的文件创建...
CreateObject("Excel.Application") ''定义一个Excel对象Set xlsWorkBook = xlsapp.Workbooks.Add ''新建一Excel实例xlsApp.Visible = True ''显示Excel对象Set xlsSheet = xlsApp.Sheets.Item(2) ''获取工作簿的第二个Sheet页'' xlsApp.Sheets.Item(2).Select ''与上一句有相同的...
帮助 | 留言交流 | 联系我们 | 服务条款 | 下载网文摘手 | 下载手机客户端
北京六智信息技术股份有限公司 Copyright© 2005-2021 360doc.com , All Rights Reserved
京ICP证090625号 京ICP备05038915号 京网文[2016]6433-853号 京公网安备11010502030377号
返回
顶部