xxsr.net
当前位置:首页 >> pErl如何读入一个.txt文本中的内容,将文本里的内容... >>

pErl如何读入一个.txt文本中的内容,将文本里的内容...

很简单的,例子代码如下: open(FD,"1.txt"); @lines=; close(FD); 上面的代码之后,就可以使用@lines数组了,比如显示第三行的语句: print $lines[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; }

你可以有两个方案 1) 用 dos 本身的功能 perl yourscript.pl > C:\result.txt 2) 在 perl 里做 open F, ">C:/Result.txt" or die "$! Can't prepare file!"; opendir D "D:/read" or die "$! Can't read dir!"; print F "$_$/" while ( readdir ...

#! c:/Perl/bin/perl.exeuse Tk;use Tk::DateEntry;use Time::Local;my($sec,$min,$hour,$day,$mon,$year) = localtime();$mon++;$year += 1900;$mon1 = $mon -1;$data_now = sprintf("%04d-%01d-%02d",$year,$mon,$day);$data_no = sprintf("%0...

open FILE, 'AA.TXT' or die; my @lines = split ( , '\n' ); my %values; foreach my $line (@lines) { if ( $line =~ /^\s*(\S+)\s*=\s*(\S+)\s*$/ ) { $values{$1} = $2; } }

word里面,直接: 文件--- 另存为 保存类型中,选:RTF格式 或 纯文本

我的手机索爱LT18i,办理了GPRS套餐,但是程序不能联网,请问如何在手机上设置GPRS参数呢

还是昨天的那个程序,假设你的文件分为 1.txt 2.txt 3.txt,这个时候不要包含文件头,即所有的文件都是内容 程序修改为: #$head = ;while(){@line = split(/,/,$_);$lwfs = $line[7];$user = join('|',$line[1],$line[2],$line[3],$line[4],$li...

my @filename = glob("*.txt"); for (@filename) { my $file = $_; open (HD "$file") || die $!; while () { my $line = $_; //处理它 } close(HD); }

$file="name.txt"; open FILE, ">$file" or warn"can't open the file"; #以写的方式打开文件,会覆盖掉原来的内容,谨慎操作 @new=qw/how are you/;##数组new存放你的新数据 print FILE @new; close FILE;

网站首页 | 网站地图
All rights reserved Powered by www.xxsr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com