看板
[ Perl ]
討論串[問題] 陣列
共 6 篇文章
內容預覽:
大家好,小弟的程式碼是這樣. 先開檔讀檔. while (<FILEIN>){. if ($_ =~ /name (\S+) /). {. $name=$1;. push @name_array, $name;. }. if ($_ =~ /spec (\S+) (\S+) (\S+)/). {.
(還有413個字)
內容預覽:
#!/usr/bin/env perl. use 5.010;. while ($_=<DATA>) {. if (/^name \w+/){. say $&; # 比對到的字串. $_ = <DATA>;. @specs = split;. shift @specs;. $_ = <DATA>;.
(還有128個字)