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 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{$...

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

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...

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

my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr;my $sql=qq(copy data_yhm FROM '/home/kettle/yhm/aaa.data' DELIMITER '|');my $sqle=$dbh->prepare($sql) or die "120-Syntax error:$!\n";$sql...

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

如:txt中的数据(按行排列的) Steve Blenheim 101 Betty Boop 201 Igor Chevsky 301 Norma Cord 401 Jonathan DeLoach 501 Karen Evich 601 open STDIN,"date.txt" or die "cannot open for :$!"; while(@date = ){ chomp@a; }

网站地图

All rights reserved Powered by www.mjjq.net

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