作者查詢 / giacch
作者 giacch 在 PTT [ Perl ] 看板的留言(推文), 共72則
限定看板:Perl
看板排序:
全部Gossiping275Soft_Job216rent-exp140PokemonGO91Perl72CD-R68Football64Salary63fastfood58Linux56RegExp53Storage_Zone44Network35FJU_IHS_dorm30Windows26ForeignEX24nb-shopping24Stock24SYSOP20PTT_KickOff18AOE12CTU_LEAGUE12StupidClown12Tech_Job12Lifeismoney8PingTung8PttEarnMoney7nCoV20195NHLUE_ALL4biker3CMU_M483HatePolitics3KS96-3013Notebook3TA_AN3AntiVirus2ASIA-uni2Broad_Band2FCU_EE97A2FJU2FJU-ACCR942FreeBSD2NTPU-STAT952NUU_Talk2Web_Design2yocjh-883102AT_FootBall1Beauty1Boy-Girl1cafa1CATCH1CH7th3101CHSH-94-3191CSMU-FC1CSMU-MED951CSMU-MED961CSMU-MT941CSMU-MT951CSMU-SOCCER1CTSH943011CyberFormula1CYCUEL95A1EZsoft1FCU-TTEM93A1FJU-ACCR931FJU-CH-2007B1FJU-Law20061FJU-LS94b1FJU_CPSY_VL1FJU_N96b1Hate1HCU1home-sale1HS29th3431IPv61J-PopStation1joke1KMT1KS93-3201KS94-3131KS95-3181KUAS1NCHU-FS1001NCUFingrad031NDMC-P911NDMC-PH231NeiHu7011NFU1NKMU1NKUHT1Note1NPTHS1NTHU_STAT941NTNU-SLM931NTUEE_VAL1NTUmed911PCSH91_3051PF_Soccer1PHP1RSPS85-6101SCU_ACC_96A1SportLottery1SSSH-09th3201STU1swim1THU-CHE-Soft1THUIM-5th1TigerBlue1TKU_IHM1TKU_trans1USC1Wanted1YCSH_alumni1<< 收起看板(113)
3F推:for(1020 .. 1030) { print scalar(2 ** $_) . " $_\n"; }02/10 02:20
4F推:http://perldoc.perl.org/perldata.html#Scalar-values02/10 02:22
5F→:for(1020 .. 1030){print scalar(0 - (2 ** $_))." $_\n";}02/10 02:26
6F→:不知道出現 inf 算不算超出域值 精確位置就自己 + - 吧~02/10 02:28
1F推: my $host = ($str =~ m{http://([^/]+)} && $1);02/06 22:12
6F→:換行 "\n" 是個字元 字串沒規定要以 "\n" 當最後一個字元01/25 10:07
7F→:這裡的 字串結尾 指 字串裡最後一個字元 (大概是這樣吧~01/25 10:10
1F→:s/([#;])/'@' . ($1 eq '#' ? $i = 1 : ++ $i)/ge12/28 14:11
2F→:效果一樣...12/28 14:12
1F→:也許有多餘的部分, 還請大大指點... (頭暈 @.@rz12/07 15:02
1F→:seek(FILE, 0, 0);12/05 10:36
1F→:for(@DATA) { /total time (\d+)/; print $1 . "\n"; }11/28 18:34
2F→:回太快修改一下... XD11/28 18:35
3F→:for(@DATA) { print $1 . "\n" if(/total time (\d+)/); }11/28 18:35
5F→:不先試一下嗎?11/28 22:58
2F→:其實這才是原問題的解答... (逃~~~11/24 14:03
4F→:很好玩對吧~ ^^11/24 00:50
3F→:(就我知道的方式)檔案輸入太慢了... orz11/15 14:38