■スレッドリストへ戻る■ 全部 1- 最新50

思いつき男のPerl CGI教室

1 :思いつき男 :1999/09/22(水) 18:13
各自、自習!

2 :名無しさん :1999/09/22(水) 18:17
#!/usr/bin/perl

3 :名無しさん :1999/09/22(水) 18:20
# Net::POP3.pm
#
# Copyright (c) 1995-1997 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Net::POP3;

use strict;
use IO::Socket;
use vars qw(@ISA $VERSION $debug);
use Net::Cmd;
use Carp;
use Net::Config;

$VERSION = "2.12"; # $Id: //depot/libnet/Net/POP3.pm#6$

@ISA = qw(Net::Cmd IO::Socket::INET);

sub new
{
my $self = shift;
my $type = ref($self) || $self;
my $host = shift if @_ % 2;
my %arg = @_;
my $hosts = defined $host ? [ $host ] : $NetConfig{pop3_hosts};
my $obj;

my $h;
foreach $h (@{$hosts})
{
$obj = $type->SUPER::new(PeerAddr => ($host = $h),
PeerPort => $arg{Port} || 'pop3(110)',
Proto => 'tcp',
Timeout => defined $arg{Timeout}
? $arg{Timeout}
: 120
) and last;
}

return undef
unless defined $obj;

${*$obj}{'net_pop3_host'} = $host;

$obj->autoflush(1);
$obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);

unless ($obj->response() == CMD_OK)
{
$obj->close();
return undef;
}

${*$obj}{'net_pop3_banner'} = $obj->message;

$obj;
}

##
## We don't want people sending me their passwords when they report problems
## now do we :-)
##

sub debug_text { $_[2] =~ /^(pass|rpop)/i ? "$1 ....\n" : $_[2]; }

sub login
{
@_ >= 1 && @_ <= 3 or croak 'usage: $pop3->login( USER, PASS )';
my($me,$user,$pass) = @_;

if(@_ <= 2)
{
require Net::Netrc;

$user ||= (getpwuid($>))[0];

my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'},$user);

$m ||= Net::Netrc->lookup(${*$me}{'net_pop3_host'});

$pass = $m ? $m->password || ""
: "";
}

$me->user($user) and
$me->pass($pass);
}

sub apop
{
@_ >= 1 && @_ <= 3 or croak 'usage: $pop3->apop( USER, PASS )';
my($me,$user,$pass) = @_;
my $banner;

unless(eval { require MD5 })
{
carp "You need to install MD5 to use the APOP command";
return undef;
}

return undef
unless ( $banner = (${*$me}{'net_pop3_banner'} =~ /(<.*>)/)[0] );

if(@_ <= 2)
{
require Net::Netrc;

$user ||= (getpwuid($>))[0];

my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'},$user);

$m ||= Net::Netrc->lookup(${*$me}{'net_pop3_host'});

$pass = $m ? $m->password || ""
: "";
}

my $md = new MD5;
$md->add($banner,$pass);

return undef
unless($me->_APOP($user,$md->hexdigest));

$me->message =~ /(\d+)\s+message/io;

${*$me}{'net_pop3_count'} = $1 || 0;
}

4 :じゃまだ。 :1999/09/22(水) 18:21
ぼけ。厨房板でやれ。

5 :名無しさん :1999/09/22(水) 18:22
心から、ご冥福

6 :名無しさん :1999/09/22(水) 18:23
while (1) {
print "ぼけ。厨房板でやれ。\n"
}

実行結果:
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。


7 :名無しさん :1999/09/22(水) 18:23
合唱

8 :名無しさん :1999/09/22(水) 18:23
立ち上がる。

9 :叫ぶ死人の会 :1999/09/22(水) 18:31
shutdown -h NOW

10 :>6 :1999/09/22(水) 22:45
コマンドラインからでも実行させることができますよ。

(MS-DOS環境の場合)
perl -e "while(1){print \"ぼけ。厨房板でやれ。\n\"}"

実行結果:
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。
ぼけ。厨房板でやれ。

11 :お掃除 :1999/09/22(水) 22:47
しましょ

12 :廻し隊 :1999/09/22(水) 22:47
reboot

13 :お掃除 :1999/09/22(水) 22:47
しましょ

14 :お掃除 :1999/09/22(水) 22:47
しましょ

15 :お掃除 :1999/09/22(水) 22:47
しましょ

16 :お掃除 :1999/09/22(水) 22:47
しましょ

17 :お掃除 :1999/09/22(水) 22:48
しましょ

18 :お掃除 :1999/09/22(水) 22:48
しましょ

19 :お掃除 :1999/09/22(水) 22:48
しましょ

20 :廻し隊 :1999/09/22(水) 22:48
shutdown -r

21 :お掃除 :1999/09/22(水) 22:48
しましょ

22 :>お掃除 :1999/09/22(水) 22:51
なんのためにコンピュータを使ってるの?
スクリプトを使って自動でやらなきゃ、効率悪いよ。

perl -e "while(1){print \"お掃除しましょ\"}"

実行結果:
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ
お掃除しましょ

23 :廻し隊 :1999/09/22(水) 22:53
shutdown -h now

24 :廻し隊 :1999/09/22(水) 22:54
reboot

25 :廻し隊 :1999/09/22(水) 22:55
他の隊員はどこへ行った??

26 :はいはい :1999/09/22(水) 22:56
まわしましょ

27 :はいはい :1999/09/22(水) 22:56
まわしましょ

28 :はいはい :1999/09/22(水) 22:56
まわしましょ

29 :はいはい :1999/09/22(水) 22:56
まわしましょ

30 :はいはい :1999/09/22(水) 22:56
まわしましょ

31 :はいはい :1999/09/22(水) 22:56
まわしましょ

32 :はいはい :1999/09/22(水) 22:56
まわしましょ

33 :よしきた :1999/09/22(水) 22:57
うんしょ

34 :はいはい :1999/09/22(水) 23:10
例によって自動化してみました。添削求む。
いやぁー、この掲示板って、Perlの勉強になっていいや。

@rotate=qw(ま わ し ま し ょ);
while (1) {
for $i (@rotate) {
print $i;
}
print "\n";
push @rotate, shift @rotate;
}

実行結果:
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし
まわしましょ
わしましょま
しましょまわ
ましょまわし
しょまわしま
ょまわしまし

35 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

36 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

37 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

38 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

39 :名無しさん :1999/09/22(水) 23:11
やれやれ。なにやってんだか。

40 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

41 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

42 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

43 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

44 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

45 :じゃ :1999/09/22(水) 23:11
行くね(はあと)

46 :じゃ :1999/09/22(水) 23:12
行くね(はあと)

47 : :1999/09/22(水) 23:12


48 :ヽ(Θ ▽ Θ)/ :1999/09/22(水) 23:13
目が〜ヽ(Θ ▽ Θ)/

16KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30