如何使用perl脚本读取服务器上的文件

Question

我的perforce客户端上有一个文件，我可以从客户端读取但我想从软件仓库而不是我的客户端读取它，我必须使用Perl脚本实现这一点，我的客户端名称是ata及其根目录目录是/ home / ata / hw 以下代码是为我客户端上的文件编写的

my $clients_file="/home/ata/hw/hard/ip/golden_design_map.cfg";
open(READ,"<$clients_file") or die "Couldn't open the file for reading:$!";

但这就是我想要实现的目标

my $clients_file="//hw/hard/ip/golden_design_map.cfg";
open(READ,"<$clients_file") or die "Couldn't open the file for reading:$!";

这里//hw/hard/ip/golden_design_map.cfg是软件仓库或服务器上的文件。 有没有我可以使用的模块。真正感谢任何帮助。谢谢。

Answer 1

您可以像这样使用p4命令行：

open( READ, "p4 print -q $clients_file|" ) or die "Couldn't execute p4:$!";

这假设您的环境已经设置为运行p4命令（PATH中的p4可执行文件，P4PORT和P4USER的有效设置，之前运行“p4 login”获得的有效登录票证等）。

或者您可以使用Perforce Perl模块：http://www.perforce.com/perforce/doc.current/manuals/p4script/02_perl.html

Answer 2

您可以使用File::Remote模块。

梗概：

use File::Remote;

# read from a remote file
open(REMOTE, "host:/remote/file") or die $!;
print while (<REMOTE>);
close(REMOTE);