如何使用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是depot或者服务器上的文件。有没有我可以 use.Any 提前真正 appreciated.Thanks 帮助的模块。

Answer 1

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

剧情简介：

use File::Remote;

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

Answer 2

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

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

这假设您的环境已经设置为运行 p4 命令（PATH 中的 p4 可执行文件，P4PORT 和 P4USER 的有效设置，通过运行 "p4 login" 以前等）。

How to read a file which is on server using perl script