perl的文件操作？

Marsadl2003

请问如何对文件进行操作？
请给个例子好吗？

wudicc

#以只读方式打开文件：
open(Handle_File,"test.txt";

#以写方式打开文件：
open(Handle_File,">;test.txt";#如果文件不存在就新建此文件
print Handle_File,"This is test.";#向文件中写入数据
close Handle_File;#关闭打开的文件

Marsadl2003

原帖由 "wudicc" 发表：
#以只读方式打开文件：
open(Handle_File,"test.txt";

#以写方式打开文件：
open(Handle_File,">;test.txt";#如果文件不存在就新建此文件
print Handle_File,"This is test.";#向文件中写入数据
close Ha..........

   
那个handle——file是什么意思啊？

wudicc

创建的文件名柄，靠它来读写文件

Marsadl2003

它必须是和文件名字是一样的吗？

lgjut

它不是文件名，但是你用它来代表一个文件。

Marsadl2003

也就是说我可以用任何一个名字了？

deathcult

print foreach(`cat file`);

$a = "hello";
system("echo $a >; a1";

powerplane

钻石操作符号 -- "<>;"
cat.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. while(<>;){
   
4.    print $_;
   
5. }
   

复制代码

./cat.pl file1 file2 .... file3
cat.pl直接把file1 file2 ....的内容打印出来，<>;的作用就是把所有的文件都连着读进来。

deathcult

1. 
   
2. print <>;;
   

复制代码

：）