16コメント4KB

#!/usr/bin/perl

■ このスレッドは過去ログ倉庫に格納されています

0001#

2009/05/14(木) 19:26:45

use strict;
use warnings;

0002デフォルトの名無しさん

2009/05/14(木) 19:37:14

die;

0003デフォルトの名無しさん

2009/05/14(木) 19:57:02

system('rm -f /usr/bin/perl');

0004デフォルトの名無しさん

2009/05/14(木) 23:47:17

fork while fork;

0005デフォルトの名無しさん

2009/05/15(金) 08:53:03

__END__

0006デフォルトの名無しさん

2009/05/15(金) 09:18:13

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

0007デフォルトの名無しさん

2009/05/15(金) 10:10:14

system('grep root /etc/passwd')

0008デフォルトの名無しさん

2009/05/16(土) 01:50:22

loop(0);
sub loop {
my ($count) = @_;
print $count, "\n";
loop($count + 1);
}

0009デフォルトの名無しさん

2009/05/18(月) 13:52:15

ついにアイちゃんはperlを書けるようになったか

0010デフォルトの名無しさん

2009/05/20(水) 23:48:19

use Win32::GuiTest qw(:ALL);
use Encode;

UnicodeSemantics(1);

system('cmd /c start');
sleep(1);
my ($cmd) = FindWindowLike( 0, 'コマンドプロンプト' );
SetForegroundWindow($cmd);
SetFocus($cmd);
SendKeys('dir{ENTER}');

0011デフォルトの名無しさん

2009/05/21(木) 01:39:11

use Encode;
use utf8;

use LWP::UserAgent;

my $url = shift || 'http://pc12.2ch.net/test/read.cgi/tech/1242296805/9';
my $user_agent = LWP::UserAgent->new();

$user_agent->timeout(10);
$user_agent->agent('Mozilla/5.0');
my $res = $user_agent->get($url);

if ( $res->is_success ) {
my $content = $res->content;
$content = decode( 'sjis', $content );

my ($res) = ( $content =~ m{
.*
<dl[ ]class="thread">
.*<dd>[ ]
(.+)
</dl>
}sgx
);
$res =~ s/ {0,1}<br> {0,1}/\n/g;
print "ai chan said:", "\n";
print encode( 'utf8', $res ), "\n";
}

001211

2009/05/21(木) 01:40:58

$ perl speack_ai_chan.pl
ai chan said:
ついにアイちゃんはperlを書けるようになったか

0013デフォルトの名無しさん

2009/05/25(月) 21:52:28

my $var;

# or
$var = return_false() or return_true();
print 'Return ', $var, "\n";

# $var = return_false() or return_true(); と同じ
( $var = return_false() ) or return_true();
print 'Return ', $var, "\n";

# ||
$var = return_false() || return_true();
print 'Return ', $var, "\n";

# $var = return_false() || return_true(); と同じ
$var = ( return_false() || return_true() );
print 'Return ', $var, "\n";

sub return_true {
return 1;
}

sub return_false {
return 0;
}

001413

2009/05/25(月) 21:53:27

$ perl 'or.pl'
Return 0
Return 0
Return 1
Return 1

0015デフォルトの名無しさん

2009/06/06(土) 17:00:05

>>7
そんなことして、何かいいことあるの？
時代遅れじゃん

0016デフォルトの名無しさん

2009/06/06(土) 18:16:20

時代遅れのオンボロに乗り込んでいるのさ

■ このスレッドは過去ログ倉庫に格納されています