Just a Doohickey About Multiline Strings in PERL

Home > IT > Just a Doohickey About Multiline Strings in PERL

Just a Doohickey About Multiline Strings in PERL

October 29th, 2008 Iron_Feet Leave a comment Go to comments Short URL

因为科研的需要，今天需要处理一堆文本。
早听说PERL除了字符串文本非常方便，所以就试试了。个人一直觉得现学现用通常是一种加快学习速度的方法～
在学习过程中，发现了一个小窍门。当然如果有PERL高手看到这篇日志的话，就当我这篇日志纯属小孩子瞎胡闹啦，我这只是希望能对我一样为PERL初学者的朋友们能有所帮助。

假如现在有个文本名为test

# cat test
1
2
3
4
5

我需要把这个文件的文本赋值给一个变量

#!/usr/bin/perl
$file_input=$ARGV[0];
open INPUT_HANDLE,$file_input or die "This file".$file_input."doesn't exist!";
$str_input=<INPUT_HANDLE>;
print $str_input;
close INPUT_HANDLE;

但是结果不尽如人意

# perl test.pl test
1

结果只赋值输出了第一行的

解决方法

#!/usr/bin/perl
$file_input=$ARGV[0];
open INPUT_HANDLE,$file_input or die "This file".$file_input."doesn't exist!";
$/=" ";
$str_input=<INPUT_HANDLE>;
print $str_input;
close INPUT_HANDLE;