討論串(共5篇) - [問題] Perl do 用法 - 看板Perl

看板 [ Perl ]

討論串[問題] Perl do 用法

共 5 篇文章

排序：最舊先 | 最新先 | 留言數 | 推文總分

內容預覽：開啟 | 關閉 | 只限未讀

首頁

尾頁

[問題] Perl do 用法

推噓0(0推 )留言0則，0人參與作者gecer (gecer)時間6年前 (2018/02/28 18:43)資訊

內容預覽:

my $line = "Just another regex hacker, Perl hacker, and that's it!\n";. while( 1 ). {. my( $found, $type )= do {. if( $line =~ /\G([a-z]+(?:'[ts])?)/i

(還有400個字)

Re: [問題] Perl do 用法

推噓2(2推 )留言2則，0人參與作者gugod (啊)時間6年前 (2018/02/28 23:12)資訊

內容預覽:

以下是我的猜測... 這裡一整段看起來類似. $a = ... ? ... : .... 的結構，只不過每一個部份都複雜一些。如果不這麼寫，可能就要重複很多 ($found, $type)，變成像這樣：. my ( $found, $type );. if( $line =~ /\G([a-z]+(

(還有506個字)

Re: [問題] Perl do 用法

推噓0(0推 )留言0則，0人參與作者gecer (gecer)時間6年前 (2018/03/10 19:43)資訊

內容預覽:

$A="a";. my ($s1,$s2)=do {. if ($A=="a"). {("s1","s2")}. if ($A!="a"). {("s3","s4")}. };. print "S1=$s1 S2=$s2";. 小弟模仿此用法但是輸出的s1 s2卻為空請問這裡do是否沒有執行到?

Re: [問題] Perl do 用法

推噓0(0推 )留言0則，0人參與作者cutekid (可愛小孩子)時間6年前 (2018/03/11 13:08)資訊

內容預覽:

$A = "a";. my ($s1,$s2) = do {. if ($A eq "a"){. ("s1","s2"). }. elsif ($A ne "a"){. ("s3","s4"). }. };. 1. 紅色部份才是「字串」比較唷. 2. 黃色部份應該才是你要的邏輯. print "S1

Re: [問題] Perl do 用法

推噓2(2推 )留言2則，0人參與作者gugod (啊)時間6年前 (2018/03/12 07:21)資訊

內容預覽:

cutekid 建議使用 "eq" 來做字串比對是很好的，特別是，在某一方. 算子為常數字串之時。不過 $A=="a" 及 $A!="a" 也還是能被 perl 執行。. perl 會把兩方的算子轉換為數字之後，再做數值比對。也就是說實際上. $A=="a" 等價於 $A==0，而 $A!="a"

(還有601個字)

首頁

尾頁