perl问题求助

454465933

1^# 454465933 发表于 2008-12-15 11:17

$ var= "net";
print "${var}work\n";
输出为：network
当net是个文件的时候有什么办法能让输出的是文件内容而不是文件名呢？

MMMIX

2^# MMMIX 发表于 2008-12-15 11:37

QUOTE:

原帖由 454465933 于 2008-12-15 11:17 发表
$ var= "net";
print "${var}work\n";
输出为：network
当net是个文件的时候有什么办法能让输出的是文件内容而不是文件名呢？

try

[Copy to clipboard] [ - ]

CODE:

$var = "net";
open my $fh, $var or die "Can't open $var: $!";
my $content = <$fh>;
print "$content{work\n";

machine

3^# machine 发表于 2008-12-15 11:51

my $fh, $var or die "Can't open $var: $!";
my 改成open吧？

MMMIX

4^# MMMIX 发表于 2008-12-15 11:54

QUOTE:

原帖由 machine 于 2008-12-15 11:51 发表
my $fh, $var or die "Can't open $var: $!";
my 改成open吧？

oops

应该是 open my $fh, $f ...

454465933

5^# 454465933 发表于 2008-12-15 13:17

QUOTE:

原帖由 MMMIX 于 2008-12-15 11:54 发表

oops

应该是 open my $fh, $f ...

谢谢