www.mjjq.net > pErl or DiE

pErl or DiE

你是想用open打开一个文件吗? gzip 应该是压缩或者解压文件的命令,不应该使用双引号,要用`,就是tab上面的那个符号

#!usr/bin/perl -wuse strict;use 5.014;open IN, "", $ARGV[1] or die "out error\n"; #新建文件, 文件句柄为OUT, 文件名为命令行里第二个参数while(){ #逐行读入文件,以下为按行操作 chomp; if(/Molecule: ZINC/){ s/Molecule: //; # 行替换...

看上去还好嘛... 不如试试这样写怎样 ? open FH, "E:/perl1.txt" or warn $!;print ;close FH;#如果不行, 再加下面一句print `dir e: /b`;# 看看是否真的有 perl1.txt还有就是, 你在档案总管里是否已设成显示所有副档名? 会不会你改了个名叫 per...

参见perl正则表达式的理论,匹配的结果为布尔型,替换的结果为数值型(成功的话),就可以得到这个问题的解决办法:my $var = 'TCTCATGTGAAAAACTATATCAATAATATAAAAACA';my $count = ($var =~ s/A/#/g);print $count;进一步扩展这种用法,将你需...

不知道你这里读取具体指什么,我就把文件名打印出来,把文件内容打印出来吧。(程序指定两个参数,第一个参数是指定的文件夹名,每二个参数是指定的扩展名。) #!/usr/bin/perl use strict; use warnings; die "Usage: $0 \n" unless @ARGV == 2...

open A, "A.txt" or die "Can't open A";my @data = ;close A;my %hash;++$hash{$_} foreach @data;open B, "B.txt" or die "Can't open B";open C, ">A无B有.txt" or die "Can't open Output A无B有";# 请改成英文档名while ( ) { if ( $hash{$...

perl脚本的内容仅包括如下这部分: #!/usr/bin/perl# write by huabo, 2009-11-20use warnings;use strict;#open the svn passwd fileopen (FILE, "passwd") or die ("Cannot open the passwd file!!!n");#clear the apache passwd fileopen (OU...

$path='D:\1'; #路径$path=~s/\\/\//g; opendir D, "$path" or die $!; open O,">name.txt" or die $!;@filename=grep(!/\.\.?$/, readdir D); @files = sort{ -M "$path/$b" -M "$path//$a" } @filename;foreach $file (@files) {print O "$fil...

print keys %mainframe_mac,"\n"; 得出甚麼 ? 因为看上去 system 不是这样用的, 但我用的是 windows, 不知道 linux 是不是特别一点 能展示一下 1.txt 和 你输入的内容都是甚麼吗 ?

1.批量替换用sed: sed 's/a/b/g' ##将a 换成b 2.批量替换文件内容方法,命令结构如下: find -name '要查找的文件名' | xargs perl -pi -e 's|被替换的字符串|替换后的字符串|g' 3.下面例子将当前目录及所有子目录下的所有pom.xml文件的”http://...

网站地图

All rights reserved Powered by www.mjjq.net

copyright ©right 2010-2021。
www.mjjq.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com