数组的问题？

fdjkf

我这两天刚学perl，对于一个问题很疑惑:a.txt里是几行文本,
for example:

dtrretret
23ret56
@!# vg
s576uytu
$#@$%.kj;f)

#/usr/bin/perl
system("cls";
open(out,"a.txt";
while(<out>
{
@words=split(//);
print("@words[0]";
}

为什么@words[0]打出来的是d2@s$,而不是dtrretret,就是说我想把文本的每一横行读入数组中，可是我写的程序为什么总是打出来竖行，刚学perl，请高手不吝赐教了：）我翻了翻我买的本参考书，可就是找不到！！

lgjut

因为split把每一行按单个字符做了分割。

open(out,"c:/a.txt";
@words = <out>;;
foreach $item (@words)
{
print $item;
}

麻辣

@words=split(//); 把每行的字符给拆开了成数组了，不需要这样子，你直接print;就可以


或按楼上的读法，返回就是数组

fdjkf

open(out,"c:/a.txt";
@words = <out>;;
foreach $item (@words)
{
  $a=$ftp->;login("server",'$item');
  $ftp->;quit;
}
我想把a.txt里每行的密码逐行代入,进行检验,可是
这样似乎不行???

怒剑狂啸

foreach $item (@words)
{
chomp $item;
$a=$ftp->;login("server","$item";
$ftp->;quit;
}
$item用双引号。

fdjkf

哦
哪里有网络模块的中文资料，想参考参考
我发现好多英文说明写的很不明了
也许是我的英语太赖了：）

fdjkf

............
open(file,"c:\a.txt";
@words=<file>;;
$num=@words;
while($num)
{
$a=$ftp->;login("admin","@words[$num-1]";
$ftp->;exit;
if($a)
{
print("ok.....!"
}
--$num;
}
为什么$a=$ftp->;login("admin","@words[$num-1]";这一行老是返回假，我把"@words[$num-1]"用print打出来，显示的确实是我ftp服务器的密码呀，用户名也对，为什么不返回真？
是不是ftp模块的密码字段不能用变量呀？？？？
那该怎么实现密码的轮换？？？
请教各位大虾！

怒剑狂啸

去掉密码行尾的换行符。
chomp $words[$num-1]；