¸½ºß 2 º£Æü 1 ¹ç·× 1903
Perl
use utf8; use Net::Twitter; my $twitter = Net::Twitter->new( username=>"" #¥æ¡¼¥¶¡¼Ì¾ , password=>"" #¥Ñ¥¹¥ï¡¼¥É ); my $status = 'ÆüËܸì'; { no utf8; $twitter->update({status => $status}); # ʸ»ú²½¤±¤Ê¤¤ }
ÌÚ¼¥¼¥ßÀ¸¸ÂÄê