perl基础问题01

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

1^# bitterness 发表于 2008-12-04 09:55

perl基础问题01

[root@centOS02 perl]# more array1.pl
#!/usr/bin/perl
use warnings;
use strict;
my @array1;
open (han1,"data1") or die "cant open the file";
while (<han1>){
      push @array1,[ split ];
}
foreach (@array1){
      print "@$_\n";
}

[root@centOS02 perl]# more data1
linux cbt redhat
linux cbt DEBIAN
      linux cbt slackware
linux cbt centOS

对上面程序部分
push @array1,[ split ]; 后面的怎么理解，另外，原文件中第三行首有空格，去哪了

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

2^# DQP 发表于 2008-12-04 10:24

空格是默认的分隔符号被去掉了
[split]返回的是以空格作为分隔符对$_进行sqlit操作后返回数组的引用

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

3^# bitterness 发表于 2008-12-04 10:38

谢谢，

那split是从第一行第一字段(默认以空格)来取值吗

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

4^# churchmice 发表于 2008-12-04 12:57

perldoc -f split

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

5^# ynchnluiti 发表于 2008-12-04 13:10

QUOTE:

原帖由 bitterness 于 2008-12-4 10:38 发表
谢谢，

那split是从第一行第一字段(默认以空格)来取值吗

行数跟split没关系。

split 默认以/\s+/切分$_; while (<>) {} 会循环把文件的每一行赋值给$_。
$_ 是split等函数， while () {}等语句使用的默认变量。perldoc perlvar，看看$_。

每日一瓜

UID: 2924
帖子: 130
积分: 299
在线时间: 23 小时

6^# 每日一瓜发表于 2008-12-04 15:48

@$_是什么？
@array1中应该包含了文件data1中的每个词，print列表array1中第三个元素redhat和第四个元素linux之间
应该没有回车呀？

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

7^# bitterness 发表于 2008-12-04 16:14

谢谢，有点理解了

每日一瓜

UID: 2924
帖子: 130
积分: 299
在线时间: 23 小时

8^# 每日一瓜发表于 2008-12-04 16:24

QUOTE:

原帖由每日一瓜于 2008-12-4 15:48 发表
@$_是什么？
@array1中应该包含了文件data1中的每个词，print列表array1中第三个元素redhat和第四个元素linux之间
应该没有回车呀？

$_是foreach的默认变量，但@$_是干嘛的？
请高手指点。谢谢阿！！

每日一瓜

UID: 2924
帖子: 130
积分: 299
在线时间: 23 小时

9^# 每日一瓜发表于 2008-12-04 16:47

哪位高手解释下，谢谢呵！
不懂@$_呢。

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

10^# hitsubunnu 发表于 2008-12-04 17:08

[Copy to clipboard] [ - ]

CODE:

@aa = qw(1 2 3);
$_ = 'aa';

print @$_;

$_ 代表数组的字母
@ 代表数组符号