37,718
社区成员
发帖
与我相关
我的任务
分享
#!/usr/bin/perl
while (<DATA>) {
@ds = split;
}
__DATA__
192.168.1.2 root #@……1234as
192.168.1.3 oracle oracle
#!/usr/bin/perl
while (<DATA>) {
($ip, $user, $pswd) = split;
print "$ip | $user | $pswd\n";
}
__DATA__
192.168.1.2 root #@……1234as
192.168.1.3 oracle oracle