5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

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

#!/usr/bin/perl

1 :#:2009/05/14(木) 19:26:45
use strict;
use warnings;


2 :デフォルトの名無しさん:2009/05/14(木) 19:37:14
die;

3 :デフォルトの名無しさん:2009/05/14(木) 19:57:02
system('rm -f /usr/bin/perl');

4 :デフォルトの名無しさん:2009/05/14(木) 23:47:17
fork while fork;

5 :デフォルトの名無しさん:2009/05/15(金) 08:53:03
__END__

6 :デフォルトの名無しさん:2009/05/15(金) 09:18:13
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

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

                  京都大学霊長類研究所

7 :デフォルトの名無しさん:2009/05/15(金) 10:10:14
system('grep root /etc/passwd')

8 :デフォルトの名無しさん:2009/05/16(土) 01:50:22
loop(0);
sub loop {
    my ($count) = @_;
    print $count, "\n";
    loop($count + 1);
}


9 :デフォルトの名無しさん:2009/05/18(月) 13:52:15
ついにアイちゃんはperlを書けるようになったか

10 :デフォルトの名無しさん: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}');


11 :デフォルトの名無しさん: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";
}


12 :11:2009/05/21(木) 01:40:58
$ perl speack_ai_chan.pl
ai chan said:
ついにアイちゃんはperlを書けるようになったか


13 :デフォルトの名無しさん: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;
}


14 :13:2009/05/25(月) 21:53:27
$ perl 'or.pl'
Return 0
Return 0
Return 1
Return 1


15 :デフォルトの名無しさん:2009/06/06(土) 17:00:05
>>7
そんなことして、何かいいことあるの?
時代遅れじゃん

16 :デフォルトの名無しさん:2009/06/06(土) 18:16:20
時代遅れのオンボロに乗り込んでいるのさ

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

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)