[問題] GD圖存在哪

看板Perl作者 (李崩子)時間13年前 (2010/10/18 13:18), 編輯推噓0(003)
留言3則, 2人參與, 最新討論串1/1
以下是我從cpan網站的範例抓下來的 http://search.cpan.org/~lds/GD-2.45/GD.pm #!/usr/local/bin/perl -w use strict; use GD; my $im = new GD::Image(100,100); my $white = $im->colorAllocate(255,255,255); my $black = $im->colorAllocate(0,0,0); my $red = $im->colorAllocate(255,0,0); my $blue = $im->colorAllocate(0,0,255); $im->transparent($white); $im->interlaced('true'); $im->rectangle(0,0,99,99,$black); $im->arc(50,50,95,75,0,360,$blue); $im->fill(50,50,$red); binmode STDOUT; print $im->png; 前面是定義顏色,中間是畫圖,最後是印出來 但是我執行後,電腦逼逼叫一下(windows工作環境) 然後出現以下亂碼: http://ppt.cc/%28@R, 在linux下沒逼逼叫,但是還是一樣結果是亂碼 http://ppt.cc/Yg,d 我想說先把cpan裡面的範例先弄懂,結果連結果都沒出來 我如果把後面兩行改成 open file,">test.png"; binmode file ; print file $im->gd->png; close file ; 這是我參考#19nlNl8y板友大大的方法 結果出現 Can't call method "png" without a package or object reference 另外http://linuxgazette.net/issue83/padala.html 我照裡面的範本打,也是逼逼叫,一樣出現亂碼 但是把網址裡的最後一行 print $myimage->png;換成上面的4行去執行,是可以的 所以我想說cpan裡的範本應該也可以,但是就是出現 Can't call method "png" without a package or object reference 到底怎麼樣show出圖,或是存圖起來? -- -- ▂▂ ▂▂▂ ▂▄▅▅▄▆█ _█◣ ◢ (●) ◣/\\ 丫 │◥  ̄◤ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.215.116 ※ 編輯: sqrt1089 來自: 140.116.215.116 (10/18 13:29)

10/18 13:55, , 1F
自我回答...print file $im->gd->png;把gd刪了就可以。謝
10/18 13:55, 1F

10/18 15:43, , 2F
perl 03.p > test.png
10/18 15:43, 2F

10/18 15:44, , 3F
或用 print file $im->png; 亦可
10/18 15:44, 3F
文章代碼(AID): #1CkzYkl1 (Perl)