探検
Perlについて
2008/08/04(月) 20:58:41
質問スレはあるけど、Perl自身について語るスレがないので、立てました。
622問題です
2012/01/18(水) 03:41:34.72 CP932の文字コードのみを使い、下の処理を実現してください。
モジュールは全て使えないものとします。
問1) まんじゅうこわい 難易度:★☆☆
(1-A)のように$matcherに文字列が設定されていています。
(1-B)の$textを走査して、(1-C)のように$matcherの内容が
最初に含まれる行の行数を表示してください。
行数は1から始まるものとします。
(1-A)
my $matcher = '饅頭怖い';
(1-B)
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
(1-C)
3
モジュールは全て使えないものとします。
問1) まんじゅうこわい 難易度:★☆☆
(1-A)のように$matcherに文字列が設定されていています。
(1-B)の$textを走査して、(1-C)のように$matcherの内容が
最初に含まれる行の行数を表示してください。
行数は1から始まるものとします。
(1-A)
my $matcher = '饅頭怖い';
(1-B)
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
(1-C)
3
623問題です
2012/01/18(水) 03:42:03.43 問2) パスの分割 難易度:★★☆
(2-A)のように$pathにパスが設定されていています。
ドライブ名、ディレクトリの各階層名、ファイル名を分割して
(2-B)のように表示してください。
(2-A)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
(2-B)
C:
メモ
饅頭怖いよ
full.txt
(2-A)のように$pathにパスが設定されていています。
ドライブ名、ディレクトリの各階層名、ファイル名を分割して
(2-B)のように表示してください。
(2-A)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
(2-B)
C:
メモ
饅頭怖いよ
full.txt
624問題です
2012/01/18(水) 03:42:27.39 問3) 裏から覗く？ 難易度:★★☆
正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、
(3-B)と同じ内容を表示してください。
(3-A)
my $text = '\\表\\\助\\封\\呂\\表\\\';
(3-B)
\裏\助\封\呂\裏\
正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、
(3-B)と同じ内容を表示してください。
(3-A)
my $text = '\\表\\\助\\封\\呂\\表\\\';
(3-B)
\裏\助\封\呂\裏\
625デフォルトの名無しさん
2012/01/18(水) 20:30:24.83宿題は自分でやりましょう
626デフォルトの名無しさん
2012/01/20(金) 00:56:22.05 # 問1) まんじゅうこわい 難易度:★☆☆
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
@_ = split(/\n/,$text);
my $i = 1;
for(@_){
if(/($matcher)/){
print $i, "\n";
}
$i++;
}
__END__
※ このスクリプトは jperl を使って実行します
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
@_ = split(/\n/,$text);
my $i = 1;
for(@_){
if(/($matcher)/){
print $i, "\n";
}
$i++;
}
__END__
※ このスクリプトは jperl を使って実行します
627デフォルトの名無しさん
2012/01/20(金) 00:58:15.41 # 問2) パスの分割 難易度:★★☆
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/\\/\n/g;
print $path, "\n";
__END__
※ このスクリプトは jperl を使って実行します
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/\\/\n/g;
print $path, "\n";
__END__
※ このスクリプトは jperl を使って実行します
628デフォルトの名無しさん
2012/01/20(金) 00:58:52.58 jperlなんて今更どうやって用意するのよｗ
629デフォルトの名無しさん
2012/01/20(金) 01:01:19.90 # 問3) 裏から覗く？ 難易度:★★☆
my $text = '\\表\\\助\\封\\呂\\表\\\';
while($text =~ /([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\xFF])/g){
if($1 eq '表\'){
print '裏';
}
else{
print $1;
}
}
__END__
※ このスクリプトは perl を使って実行します
perl と jperl の使い分けがポイントです。
授業で教えましたよね？
それと宿題を２チャンネルで行うのは今後、禁止いたします。
my $text = '\\表\\\助\\封\\呂\\表\\\';
while($text =~ /([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\xFF])/g){
if($1 eq '表\'){
print '裏';
}
else{
print $1;
}
}
__END__
※ このスクリプトは perl を使って実行します
perl と jperl の使い分けがポイントです。
授業で教えましたよね？
それと宿題を２チャンネルで行うのは今後、禁止いたします。
630デフォルトの名無しさん
2012/01/20(金) 01:03:28.68632デフォルトの名無しさん
2012/01/20(金) 21:22:29.16 べくたーｗｗｗｗｗ
633へたくそ
2012/01/20(金) 21:37:23.75 問1)
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
my $i = 1;
foreach (split(/\n/,$text)){
if (/\Q$matcher\E)/){
print("$i\n");
last;
}
$i++;
}
問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
my $char = '(?:[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])';
foreach ($path =~ /$char/go){
print( ($_ eq '\\') ? "\n" : $_);
}
問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/\1?/g;
$path =~ s/\\(?!\?)/\n/g;
$path =~ s/\?//g;
print($path"\n");
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
my $i = 1;
foreach (split(/\n/,$text)){
if (/\Q$matcher\E)/){
print("$i\n");
last;
}
$i++;
}
問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
my $char = '(?:[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])';
foreach ($path =~ /$char/go){
print( ($_ eq '\\') ? "\n" : $_);
}
問2)
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
$path =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/\1?/g;
$path =~ s/\\(?!\?)/\n/g;
$path =~ s/\?//g;
print($path"\n");
634へたくそ
2012/01/20(金) 21:38:57.63 問3)
my $text = '\\表\\\助\\封\\呂\\表\\\';
$text =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/?\1?/g;
$text =~ s/\Q?表?\E/裏/g;
$text =~ s/\?//g;
print("$text\n");
my $text = '\\表\\\助\\封\\呂\\表\\\';
$text =~ s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])/?\1?/g;
$text =~ s/\Q?表?\E/裏/g;
$text =~ s/\?//g;
print("$text\n");
635先生より
2012/01/20(金) 21:57:35.26 何人かの生徒から知らせを受けて、まさかと思いここをアクセスしたら
問題がそのまま掲載されていて、驚いています。
ここに掲載された回答を書いたひとは配点しませんので、そのつもりで
いてください。
問題を載せた君は月曜日に職員室に来てください。誰かは大体分かって
います。
問題がそのまま掲載されていて、驚いています。
ここに掲載された回答を書いたひとは配点しませんので、そのつもりで
いてください。
問題を載せた君は月曜日に職員室に来てください。誰かは大体分かって
います。
636先生より
2012/01/20(金) 22:10:10.58 >>631
【正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、】
「正規表現で置換する」とは言っていません。条件は、
1. 正規表現を使うこと
2. 置換すること
です。
あわてずに問題を読みましょう。
あ、それと君も職員室に来てください。
【正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、】
「正規表現で置換する」とは言っていません。条件は、
1. 正規表現を使うこと
2. 置換すること
です。
あわてずに問題を読みましょう。
あ、それと君も職員室に来てください。
637デフォルトの名無しさん
2012/01/20(金) 22:11:14.75 １．性器表現を使うこと
２．痴姦すること
ですね！
２．痴姦すること
ですね！
638デフォルトの名無しさん
2012/01/20(金) 22:15:09.53 下ネタは5.8のほうでやってください。そっちに好きなひとがいるんで。
639先生より
2012/01/20(金) 23:39:20.06 誰も名のらなかった場合は、全員を減点します。
校長先生には許可をもらいました。
おや？そうなると進級できないひとがでてきそうですね。
もしかして、書き込んだのは．．．
校長先生には許可をもらいました。
おや？そうなると進級できないひとがでてきそうですね。
もしかして、書き込んだのは．．．
641答え
2012/01/21(土) 12:53:34.05 問1)
'怖い'(\x95|\x82\xA2)にはバーティカルバーが含まれるため、
正規表現でマッチさせると'饅頭怖い'は'い'(\x82\xA2)を含む文字列にマッチする。
解決するには、メタキャラクタをクォートしてリテラルキャラクタにするか、
正規表現は忘れてindex()を使う。
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
my $cnt = 1;
foreach(split /^/, $text) {
if (/\Q$matcher\E/) {
print $cnt, "\n";
last;
}
$cnt++;
}
'怖い'(\x95|\x82\xA2)にはバーティカルバーが含まれるため、
正規表現でマッチさせると'饅頭怖い'は'い'(\x82\xA2)を含む文字列にマッチする。
解決するには、メタキャラクタをクォートしてリテラルキャラクタにするか、
正規表現は忘れてindex()を使う。
my $matcher = '饅頭怖い';
my $text = <<'EOL';
饅頭怖くない。
これは良い饅頭。
従って饅頭怖い。
EOL
my $cnt = 1;
foreach(split /^/, $text) {
if (/\Q$matcher\E/) {
print $cnt, "\n";
last;
}
$cnt++;
}
642答え
2012/01/21(土) 12:54:14.19 問2)
'饅頭怖いよ'の'饅'(\xE9\\)の2バイト目にバックスラッシュが含まれるので、
そのままsplit(/\\/, $path)すると'\xE9'と'頭怖いよ'に分割されてしまう。
split(/(?<![\x81-\x9f\xe0-\xfc])\\/, $path)では、
'モ\\'(\x83\x82\\)と'よ\\'(\x82\xE6\\)が分割できなくなる。
解決するには、頭からデータの並びを調べる。
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
print($1, "\n") while($path =~ /\G($cp932)\\/gc);
print($1, "\n") if ($path =~ /(.+)$/g);
'饅頭怖いよ'の'饅'(\xE9\\)の2バイト目にバックスラッシュが含まれるので、
そのままsplit(/\\/, $path)すると'\xE9'と'頭怖いよ'に分割されてしまう。
split(/(?<![\x81-\x9f\xe0-\xfc])\\/, $path)では、
'モ\\'(\x83\x82\\)と'よ\\'(\x82\xE6\\)が分割できなくなる。
解決するには、頭からデータの並びを調べる。
my $path = 'C:\メモ\饅頭怖いよ\full.txt';
my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
print($1, "\n") while($path =~ /\G($cp932)\\/gc);
print($1, "\n") if ($path =~ /(.+)$/g);
643答え
2012/01/21(土) 12:54:50.53 問3)
漢字1バイトズレ問題。
'表'(\x95\x5C)を'裏'(\x97\xA0)にs/表\/裏/gで置き換えると、
'助\\'(\x8F\x95\x5C)が、"女\xA0"(\x8F\x97\xA0)に置き換えられ、
'封\\'(\x95\x95\x5C)が、"風\xA0"(\x95\x97\xA0)に置き換えられる。
解決するには、頭からデータの並びを調べる。
my $text = '\\表\\\助\\封\\呂\\表\\\';
my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
$text =~ s/\G($cp932)表\/$1裏/g;
print $text;
EUC-JP版のズレ対策はPerlメモさんにあります。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
漢字1バイトズレ問題。
'表'(\x95\x5C)を'裏'(\x97\xA0)にs/表\/裏/gで置き換えると、
'助\\'(\x8F\x95\x5C)が、"女\xA0"(\x8F\x97\xA0)に置き換えられ、
'封\\'(\x95\x95\x5C)が、"風\xA0"(\x95\x97\xA0)に置き換えられる。
解決するには、頭からデータの並びを調べる。
my $text = '\\表\\\助\\封\\呂\\表\\\';
my $cp932 = qr/(?:[\x00-\x80\xa0-\xdf\xfd-\xff]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*?/;
$text =~ s/\G($cp932)表\/$1裏/g;
print $text;
EUC-JP版のズレ対策はPerlメモさんにあります。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
644答え
2012/01/21(土) 13:25:14.16 コードはTMTOWTDIってことで。
こんな面倒なことをやっても、このコードはCP932専用。
EUC-JPかUTF-8に変更されると書き直しに迫られる。
Perlの三大美徳の怠惰を忘れずに。
こんな面倒なことをやっても、このコードはCP932専用。
EUC-JPかUTF-8に変更されると書き直しに迫られる。
Perlの三大美徳の怠惰を忘れずに。
645デフォルトの名無しさん
2012/01/21(土) 14:32:17.48 で本当の問題は、これをEncodeモジュールを使って
CP932、EUC-JP、UTF-8全て対応にするという物。
CP932、EUC-JP、UTF-8全て対応にするという物。
646デフォルトの名無しさん
2012/01/21(土) 21:47:42.75 JperlじゃEncodeモジュール使えないじゃん。確かにそれは問題だな。
647デフォルトの名無しさん
2012/01/21(土) 21:54:33.42 なんだ、やっぱりダメなんだなEmcodeは
648デフォルトの名無しさん
2012/01/21(土) 22:46:51.21 # 問3) 裏から覗く？ 難易度:★★☆
# my $text = '\\表\\\助\\封\\呂\\表\\\'; ← 表の後ろに \ が3つ
my $text = '\\表\\助\\封\\呂\\表\\';
$text =~ s/表/裏/g;
print $text;
__END__
※ このスクリプトは jperl を使って実行します
問題では変数 $text の表の後ろに3つの \ があるためにおかしな
ことになっていますが、現実の問題としては2つの \ ということに
なるでしょう。
こうすることで正規表現による置換ができます。
# my $text = '\\表\\\助\\封\\呂\\表\\\'; ← 表の後ろに \ が3つ
my $text = '\\表\\助\\封\\呂\\表\\';
$text =~ s/表/裏/g;
print $text;
__END__
※ このスクリプトは jperl を使って実行します
問題では変数 $text の表の後ろに3つの \ があるためにおかしな
ことになっていますが、現実の問題としては2つの \ ということに
なるでしょう。
こうすることで正規表現による置換ができます。
649デフォルトの名無しさん
2012/01/22(日) 11:29:56.92 英語版のperlで日本語を処理しようとするのはナンセンスです。
すでにjperlがあるわけですから賢く使い分けましょう。また国際化
対応していれば日本語も扱えるとのたまう輩もおりますが、軽く
受け流して、可能なら5.8スレの方に誘導してあげましょう。
面倒な場合はスルーでも構いません。
すでにjperlがあるわけですから賢く使い分けましょう。また国際化
対応していれば日本語も扱えるとのたまう輩もおりますが、軽く
受け流して、可能なら5.8スレの方に誘導してあげましょう。
面倒な場合はスルーでも構いません。
650デフォルトの名無しさん
2012/01/22(日) 11:47:22.87 Encode使う場合はこうかな
use Encode;
my $cp932 = find_encoding( 'cp932' );
my $um = $cp932->decode( $matcher );
my @text = split( "\n", $cp932->decode( $text ) );
for my $i ( 0.. scalar( @text )-1 ) {
next unless ( shift( @text ) =~/$um/ );
print $i + 1 . "\n";
last;
}
問題がつまらんね
use Encode;
my $cp932 = find_encoding( 'cp932' );
my $um = $cp932->decode( $matcher );
my @text = split( "\n", $cp932->decode( $text ) );
for my $i ( 0.. scalar( @text )-1 ) {
next unless ( shift( @text ) =~/$um/ );
print $i + 1 . "\n";
last;
}
問題がつまらんね
651デフォルトの名無しさん
2012/01/22(日) 11:55:28.79 まあ、義務教育の中等学校だからそんなもんだね
652デフォルトの名無しさん
2012/01/22(日) 11:56:43.81 jperlにしがみつく人が屁理屈で問題作ってるんだよ
もし学校で「jperlだけを使いなさい、jperlを前提としたプログラムを作りなさい」って
教育してるなら日教組並みの害悪
もし学校で「jperlだけを使いなさい、jperlを前提としたプログラムを作りなさい」って
教育してるなら日教組並みの害悪
653デフォルトの名無しさん
2012/01/22(日) 12:22:14.65654デフォルトの名無しさん
2012/01/22(日) 12:35:43.12 >>650
モジュールを使えるのなら、レガシーなスクリプトに対してはencodingを使える。
use encoding qw(cp932);
...
my $cnt = 1;
foreach(split /^/, $text) {
if (/$matcher/) {
print $cnt, "\n";
last;
}
$cnt++;
}
モジュールを使えるのなら、レガシーなスクリプトに対してはencodingを使える。
use encoding qw(cp932);
...
my $cnt = 1;
foreach(split /^/, $text) {
if (/$matcher/) {
print $cnt, "\n";
last;
}
$cnt++;
}
655デフォルトの名無しさん
2012/01/22(日) 12:38:11.18 いまさらEncodeモジュール絡みの話をしているPerlの人って……
656デフォルトの名無しさん
2012/01/22(日) 12:44:34.84 >>645
モダンにいくなら、UTF-8で書いて、こんな感じ。
use utf8;
use Encode::Locale;
use open qw(:encoding(locale) :std);
...
モダンにいくなら、UTF-8で書いて、こんな感じ。
use utf8;
use Encode::Locale;
use open qw(:encoding(locale) :std);
...
657デフォルトの名無しさん
2012/01/22(日) 13:19:32.77 ヒント：ヒューマンリソースとムーアの法則について
658デフォルトの名無しさん
2012/01/22(日) 14:08:47.05 >>657
ホウホウそれで
ホウホウそれで
659デフォルトの名無しさん
2012/01/22(日) 17:50:00.68 たくさんの回答、ありがとうございました。
中には学校で習ったものよりも高度なものがあり、パールの苦手なぼく
にもとても参考になりました。でも将来プログラマになるわけではない
ので簡単なJPERLで十分かな？と思っています。
明日、出頭し処分を受けることになりそうですが、あまり後悔はして
ません。ここでいろいろ勉強になったからです。
ところで職員室は第一ですか？それとも第二のほうがいいですか？
中には学校で習ったものよりも高度なものがあり、パールの苦手なぼく
にもとても参考になりました。でも将来プログラマになるわけではない
ので簡単なJPERLで十分かな？と思っています。
明日、出頭し処分を受けることになりそうですが、あまり後悔はして
ません。ここでいろいろ勉強になったからです。
ところで職員室は第一ですか？それとも第二のほうがいいですか？
660デフォルトの名無しさん
2012/01/22(日) 18:33:21.22 展開がキチガイ過ぎて言葉が出ない…
661デフォルトの名無しさん
2012/01/22(日) 18:52:48.71 jperlは別に簡単ではないぞ。特定の用途の場合にのみちょっと便利なだけだ。
662先生より
2012/01/22(日) 21:23:13.30 第二です。8:40までにくること！
663デフォルトの名無しさん
2012/01/22(日) 21:31:34.74 承知しました
664デフォルトの名無しさん
2012/01/22(日) 22:03:07.77 便利だったら無理に勧めなくたって、みんな使い出すんだろうね
他の何かをdisるのはなぜか危機感を感じてる証拠だろうね
他の何かをdisるのはなぜか危機感を感じてる証拠だろうね
665デフォルトの名無しさん
2012/01/22(日) 23:16:21.58666デフォルトの名無しさん
2012/01/22(日) 23:17:03.60 そりゃあ、上のスクリプトを比べてみれば一目瞭然だもの。
667デフォルトの名無しさん
2012/01/22(日) 23:26:02.71 道具を使うのは人間なんだから、使いやすいものをそのときどきによって
選択すればいいよね。あるから使わないといけないと考えるのは本末転倒
で無駄な苦労をすることになるよね。でもまあご自由にどうぞ。
選択すればいいよね。あるから使わないといけないと考えるのは本末転倒
で無駄な苦労をすることになるよね。でもまあご自由にどうぞ。
668uy
2012/01/23(月) 17:02:41.36 可愛そうに･･････
>>667
最近、誰の受け売りだか知らんがこういう事言ってる奴いるけど
はっきりいって、C#.NET知ってればほとんどのことは出来るし、
ようは言語同士の連結の仕方を知っているかどうかだけど、大丈夫か？
Rubyだけ使っていたって、そこから.NETやC呼び出せばほぼ何でも出来るようになるわけだけど
Perl使いさんたちは、言語同士の連結のやり方 わかっていますか？
>>667
最近、誰の受け売りだか知らんがこういう事言ってる奴いるけど
はっきりいって、C#.NET知ってればほとんどのことは出来るし、
ようは言語同士の連結の仕方を知っているかどうかだけど、大丈夫か？
Rubyだけ使っていたって、そこから.NETやC呼び出せばほぼ何でも出来るようになるわけだけど
Perl使いさんたちは、言語同士の連結のやり方 わかっていますか？
669デフォルトの名無しさん
2012/01/23(月) 17:07:17.50 へえC#.NETって環境を問わずどこでも使えるんだー知らなかったよ
言語同士の連結ってどうやるの？連携のさせ方ならいろいろあるだろうけど連結は聞いたことなかったな
言語同士の連結ってどうやるの？連携のさせ方ならいろいろあるだろうけど連結は聞いたことなかったな
670uy
2012/01/23(月) 17:59:27.39 機械語で想像できないから
連結って言葉に違和感を覚えるのか
それとも、
dllファイルを別々にしたときの挙動すら、わかっていないのか
さすがにPerl使ってる奴は井の中の蛙という言葉がふさわしい･･･
ああ可愛そうに
ひたすら可愛そうに
連結って言葉に違和感を覚えるのか
それとも、
dllファイルを別々にしたときの挙動すら、わかっていないのか
さすがにPerl使ってる奴は井の中の蛙という言葉がふさわしい･･･
ああ可愛そうに
ひたすら可愛そうに
671uy
2012/01/23(月) 18:00:28.23 この手のバカ
スクリプト言語しか出来ないタイプには多いだろうな
perlより、まずコンピューターの基礎からやり直したほうがいいのではないか
スクリプト言語しか出来ないタイプには多いだろうな
perlより、まずコンピューターの基礎からやり直したほうがいいのではないか
672デフォルトの名無しさん
2012/01/23(月) 19:03:38.76 C#.NETでなんでもできるとかほざいてる奴が
井の中の蛙だのコンピューターの基礎だの烏滸がましいわｗ
井の中の蛙だのコンピューターの基礎だの烏滸がましいわｗ
673デフォルトの名無しさん
2012/01/23(月) 19:04:09.63674デフォルトの名無しさん
2012/01/23(月) 21:30:12.88 えさは足りてるみたいなので与えないでください
675uy
2012/01/24(火) 00:02:01.90 >>673
ほら突っついたらでてきた
井の中の蛙ｗｗｗｗｗ
そんなの出来ることは当たり前なのに
どうした？ どこか痛いのか？
目的の為に言語を変えるか、
俺が言いたいのは
お前たち程度のレベルで、目的の為に最適な言語がいつから選べると慢心しているのかって事だ
CGIを書くのにCは使わない？ そんなのは当たり前で
段階はその次だ
CGIを書くためにどのWeb言語を使うのか？
その選択がお前たちは出来ないから・・・・こんなスレにいるんだろｗｗｗｗｗｗｗｗバカかｗｗｗｗｗｗｗ
perl一生つかっていろよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗＷＷＷＷＷＷＷＷＷ
ほら突っついたらでてきた
井の中の蛙ｗｗｗｗｗ
そんなの出来ることは当たり前なのに
どうした？ どこか痛いのか？
目的の為に言語を変えるか、
俺が言いたいのは
お前たち程度のレベルで、目的の為に最適な言語がいつから選べると慢心しているのかって事だ
CGIを書くのにCは使わない？ そんなのは当たり前で
段階はその次だ
CGIを書くためにどのWeb言語を使うのか？
その選択がお前たちは出来ないから・・・・こんなスレにいるんだろｗｗｗｗｗｗｗｗバカかｗｗｗｗｗｗｗ
perl一生つかっていろよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗＷＷＷＷＷＷＷＷＷ
676デフォルトの名無しさん
2012/01/24(火) 01:16:41.40 早い話が、結局何をやってもものに出来なかった人の嫉妬ですね。
677デフォルトの名無しさん
2012/01/24(火) 01:31:36.16 nyは専ブラであぼーんだな
678デフォルトの名無しさん
2012/01/24(火) 01:54:43.15 世の中にはCで書かれたCGIもあるんだぜ
しかも身近に
しかも身近に
679デフォルトの名無しさん
2012/01/24(火) 08:33:13.29 中国人が抱く外国イメージ 「韓国人は横柄な歴史ドロボー」
中国にとってトラブルの絶えない韓国へのイメージで最も支持を得たのは「歴史ドロボー」だった。
7．6％で1位となった「歴史の剽窃（ひょうせつ）」について、環球網は「端午の節句や孔子を韓国の文化遺産にするなど、
韓国が中国の歴史を盗んだ」ことが背景にあると解説した。また、韓国人が常に自国製品を「世界一」「最先端」と「自称」する
韓国メディアにより「横柄」（7．3％）が2位となったと紹介した。
第3位は「整形」（6．6％）だった。（「整形」が「韓国ドラマ」3．7％、「美女」2．9％を上回った）
このほか「ケチ」「過激」「民族主義」が3−6％。韓国の「家電・デジタル製品」は1−2％にとどまった。
http://news.searchina.ne.jp/disp.cgi?y=2012&d=0118&f=national_0118_074.shtml
中国にとってトラブルの絶えない韓国へのイメージで最も支持を得たのは「歴史ドロボー」だった。
7．6％で1位となった「歴史の剽窃（ひょうせつ）」について、環球網は「端午の節句や孔子を韓国の文化遺産にするなど、
韓国が中国の歴史を盗んだ」ことが背景にあると解説した。また、韓国人が常に自国製品を「世界一」「最先端」と「自称」する
韓国メディアにより「横柄」（7．3％）が2位となったと紹介した。
第3位は「整形」（6．6％）だった。（「整形」が「韓国ドラマ」3．7％、「美女」2．9％を上回った）
このほか「ケチ」「過激」「民族主義」が3−6％。韓国の「家電・デジタル製品」は1−2％にとどまった。
http://news.searchina.ne.jp/disp.cgi?y=2012&d=0118&f=national_0118_074.shtml
680デフォルトの名無しさん
2012/01/24(火) 19:43:02.60 index.cgiを開いたらバイナリだったでござるの巻
681デフォルトの名無しさん
2012/01/25(水) 17:49:38.95 ぶっちゃけもはやスクリプト自体はutf-8で書くことが多くなってるし
jperlとか害悪としか思わない
jperlとか害悪としか思わない
682デフォルトの名無しさん
2012/01/25(水) 22:47:18.47 早く社会に出て役立つプログラム作ろうな。
683デフォルトの名無しさん
2012/01/26(木) 00:24:25.93 企業は競争力や応用力を判定している
薀蓄は相手にしていない
薀蓄は相手にしていない
684デフォルトの名無しさん
2012/01/27(金) 01:25:11.60 ぶっちゃけ単にエンタープライズ環境を知らないだけなんだろうな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな
685デフォルトの名無しさん
2012/01/27(金) 02:22:30.64 Java4が稼動してそうで怖い話だな。
686デフォルトの名無しさん
2012/01/27(金) 08:36:33.85 Java4のソースコードなら
今も最新Javaで普通に動く。
今も最新Javaで普通に動く。
687デフォルトの名無しさん
2012/01/27(金) 13:36:37.34688デフォルトの名無しさん
2012/01/27(金) 17:46:45.90 >>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。
まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。
……スレ違いだがマジレスしてしまった。
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。
まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。
……スレ違いだがマジレスしてしまった。
689デフォルトの名無しさん
2012/01/27(金) 21:00:28.98690デフォルトの名無しさん
2012/01/31(火) 09:38:20.86 ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？
PPMに出てきません
どこに有りますか？
691デフォルトの名無しさん
2012/01/31(火) 20:25:29.54 >>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。
あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。
あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。
692デフォルトの名無しさん[
2012/01/31(火) 21:17:48.24693デフォルトの名無しさん
2012/01/31(火) 23:18:31.55 >692
なんか、はずしてるようなので調べてみました。どうやら、
リポジトリの追加とかが必要なようです。
実際、リポジドリの登録はした覚えがあります。
http://cz500.com/diary/?20110310
からの抜粋(コピペしやすかったので採用)
1.スタート＞ActivePerl＞Perl Package Manager を起動
2.メニューからEdit>Preferences>Repositoriesタブを開く
3.Add Repositoryダイアログでリポジトリを追加
1.Name cpan
2.Location http://cpan.uwinnipeg.ca/PPMPackages/10xx/
3.と入力してAddボタンをクリック。暫くするとRepositoriesタブにcpanが増えます。
4.OKをクリックしてPreferenceを閉じます。
ホームページによっては少し違いがあり、当方では追加済みなので、
検証することができません。うまくいかなかったら、activeperl
cpan ppm リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。
なんか、はずしてるようなので調べてみました。どうやら、
リポジトリの追加とかが必要なようです。
実際、リポジドリの登録はした覚えがあります。
http://cz500.com/diary/?20110310
からの抜粋(コピペしやすかったので採用)
1.スタート＞ActivePerl＞Perl Package Manager を起動
2.メニューからEdit>Preferences>Repositoriesタブを開く
3.Add Repositoryダイアログでリポジトリを追加
1.Name cpan
2.Location http://cpan.uwinnipeg.ca/PPMPackages/10xx/
3.と入力してAddボタンをクリック。暫くするとRepositoriesタブにcpanが増えます。
4.OKをクリックしてPreferenceを閉じます。
ホームページによっては少し違いがあり、当方では追加済みなので、
検証することができません。うまくいかなかったら、activeperl
cpan ppm リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。
694デフォルトの名無しさん
2012/02/06(月) 10:06:28.10 以下のスクリプトで200MB以上の動画をダウンロードしようとすると
512KBのファイルしか落ちません（Win7 32bitにStrawberry Perlです）
どうすれば全部落とせますか？
use strict;
use warnings;
use LWP::Simple;
use open ':std';
use Tk;
use Win32::Clipboard;
use LWP::UserAgent;
use HTTP::Request;
my $clip = Win32::Clipboard();
my $url = $clip->Get();
print "url=[$url]\n";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $url );
my $proxy;
$proxy = "http://XXX.XXX.XXX.XXX:8080";
print "proxy=[$proxy]\n";
$ua->agent("perl-wget");
$ua->proxy( 'http', $proxy );
512KBのファイルしか落ちません（Win7 32bitにStrawberry Perlです）
どうすれば全部落とせますか？
use strict;
use warnings;
use LWP::Simple;
use open ':std';
use Tk;
use Win32::Clipboard;
use LWP::UserAgent;
use HTTP::Request;
my $clip = Win32::Clipboard();
my $url = $clip->Get();
print "url=[$url]\n";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => $url );
my $proxy;
$proxy = "http://XXX.XXX.XXX.XXX:8080";
print "proxy=[$proxy]\n";
$ua->agent("perl-wget");
$ua->proxy( 'http', $proxy );
695694
2012/02/06(月) 10:07:01.90 $req->header( 'X-Header1' => 'hoge', 'X-Header2' => 'foobar', );
my $flv_file = "c:\\pl test\\xyz.flv";
my $res = $ua->request( $req, $flv_file );
my $head = $res->headers_as_string;
print "headers_as_string=[$head]\n";
実行結果
url=[http://XXX.XXX.XXX/flv/XXX/XXX/XXX/XXX/XXX/XXX.flv]
proxy=[http://XXX.XXX.XXX.XXX:8080]
headers_as_string=[Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Mon, 06 Feb 2012 00:46:54 GMT
Via: 1.1 localhost:8080 (squid/2.7.STABLE7)
Accept-Ranges: bytes
Server: Apache
Content-Length: 282093419
Content-Type: application/octet-stream
Client-Date: Mon, 06 Feb 2012 00:51:02 GMT
Client-Peer: XXX.XXX.XXX.XXX:8080
Client-Response-Num: 1
Content-Disposition: filename=XXX.flv
X-Cache: MISS from localhost
X-Cache-Lookup: MISS from localhost:8080
X-Powered-By: PHP/5.2.17
]
my $flv_file = "c:\\pl test\\xyz.flv";
my $res = $ua->request( $req, $flv_file );
my $head = $res->headers_as_string;
print "headers_as_string=[$head]\n";
実行結果
url=[http://XXX.XXX.XXX/flv/XXX/XXX/XXX/XXX/XXX/XXX.flv]
proxy=[http://XXX.XXX.XXX.XXX:8080]
headers_as_string=[Cache-Control: no-store, no-cache, must-revalidate
Connection: close
Date: Mon, 06 Feb 2012 00:46:54 GMT
Via: 1.1 localhost:8080 (squid/2.7.STABLE7)
Accept-Ranges: bytes
Server: Apache
Content-Length: 282093419
Content-Type: application/octet-stream
Client-Date: Mon, 06 Feb 2012 00:51:02 GMT
Client-Peer: XXX.XXX.XXX.XXX:8080
Client-Response-Num: 1
Content-Disposition: filename=XXX.flv
X-Cache: MISS from localhost
X-Cache-Lookup: MISS from localhost:8080
X-Powered-By: PHP/5.2.17
]
696デフォルトの名無しさん
2012/02/06(月) 22:52:57.31 proxy経由しないでも同じ結果か等の原因の切り分けはしたの？
697デフォルトの名無しさん
2012/03/04(日) 19:10:14.90 .(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz
ファイルの全てが_で埋め尽くされたファイルが出力されたorz
698デフォルトの名無しさん
2012/03/05(月) 00:59:57.32 便箋w
699デフォルトの名無しさん
2012/08/04(土) 13:16:49.80 Perlコード汚すぎる。
700デフォルトの名無しさん
2012/08/04(土) 13:29:41.35 俺なんかそのまま納品して、夏休みとった年があるｗ^_^
701デフォルトの名無しさん
2012/10/17(水) 18:25:33.11 文字列の処理が容易である
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）
スクリプト言語のいろは｜Cマガジン2000年10月号
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）
スクリプト言語のいろは｜Cマガジン2000年10月号
702デフォルトの名無しさん
2012/10/20(土) 14:50:00.72 > 文字列の処理が容易である
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ
CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ
CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．
703デフォルトの名無しさん
2012/10/24(水) 02:32:36.90 >>699
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。
704デフォルトの名無しさん
2012/10/25(木) 11:28:52.33 保守性・再利用性ならCOBOL一択だよね！！
705デフォルトの名無しさん
2012/10/26(金) 01:46:36.75 同じような仕事にしか使わんからな。
706デフォルトの名無しさん
2012/11/10(土) 11:32:03.17 今の時代ならDSLといえば
COBOLのすばらしさが分かるだろう。
COBOLのすばらしさが分かるだろう。
707デフォルトの名無しさん
2012/11/10(土) 13:11:12.89 read うんたらかんたら
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read
のファイル入力構文は初めて見たときカルチャーショックだったな
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read
のファイル入力構文は初めて見たときカルチャーショックだったな
708デフォルトの名無しさん
2012/11/17(土) 14:18:46.56 言語が違えばやり方は違うんだから想定の範囲内だがな
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ
709デフォルトの名無しさん
2012/11/17(土) 17:59:06.65710デフォルトの名無しさん
2012/11/17(土) 20:21:00.74 でもパソコンじゃあC言語の前にBASICがあって、それって
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな
711デフォルトの名無しさん
2012/11/17(土) 21:32:41.75 >>710
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす
712デフォルトの名無しさん
2012/12/03(月) 14:49:49.57 初心者を育てるのがPHP、初心者を袋叩きにして人格否定までするのがPerl
713デフォルトの名無しさん
2012/12/03(月) 23:15:25.81 PHPもPerlもただのプログラミング言語だから育てたりとか袋叩きにしたりとかはしない。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。
714デフォルトの名無しさん
2012/12/04(火) 00:49:41.86 「同じ問題でも解き方は人によって違っていい」ってのが Perl の思想だからな。
人格否定なんてありえない。
人格否定なんてありえない。
715デフォルトの名無しさん
2012/12/04(火) 05:53:42.12 解き方は人によって違っていいが
書き方は統一しろ。
書き方は統一しろ。
716デフォルトの名無しさん
2012/12/05(水) 08:28:36.86 >>715
コード整形ツールを使いたまえ
コード整形ツールを使いたまえ
717デフォルトの名無しさん
2012/12/15(土) 21:53:54.04 初心者を袋叩きにして人格否定までするのはモダンPerl。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。
718デフォルトの名無しさん
2012/12/16(日) 00:08:21.80 > 初心者を袋叩きにして人格否定
誰のこと？ そんな人いないよ。
誰のこと？ そんな人いないよ。
719デフォルトの名無しさん
2013/01/12(土) 17:48:21.31 え？
720デフォルトの名無しさん
2013/01/13(日) 04:08:36.23 >>718←何言ってんのコイツｗｗｗ
721デフォルトの名無しさん
2013/01/20(日) 03:19:14.74 >>717
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって
レスを投稿する
ニュース
- 中国の王毅外相、高市首相の台湾巡る答弁は「レッドラインを越えた」 [どどん★]
- 【コメ】やっぱり進次郎のほうがマシ…｢コメの値下げは無理｣と言い張る農林族の鈴木農水大臣 ★2 [ぐれ★]
- 【速報】 中国国営新聞社 「日本はすでに代価を支払った」 中国SNSで1位に 高市総理の発言めぐり ★4 [お断り★]
- 高市首相の台湾有事答弁「問題ない」50％ 「問題があったと思う」25％を大きく上回る 毎日新聞世論調査 ★2 [尺アジ★]
- 【小学校24歳男性教師】酒に酔って車盗み、海にダイブ、ズブ濡れで車乗り捨て、別の車で朝まで爆睡「仕事があり早く帰りたかった」北海道 [ぐれ★]
- 【相撲】九州場所千秋楽 関脇・安青錦が初優勝 優勝決定戦で豊昇龍破る 所要14場所は史上2位のスピード記録 [ニーニーφ★]
- 競輪実況★1608
- 巨専】ジャイアンツファンフェスタ2025
- 競輪実況★1607
- とらせん 2
- 【DAZN】フォーミュラGP【F1 2 3 SF P】Lap1809
- こいせん 全レス転載禁止 SHAKARIKI
- 高市早苗 抜群の存在感をアピールしてしまう [163661708]
- 【実況】博衣こよりのえちえちホロ食べず嫌い王🧪 ★2
- 高市政権、順調スタート 自民幹部「政策に期待感」 [834922174]
- 【悲報】ツイッター愛国アカウント、続々と外国産だということが判明 つまり愛国者は外国人ということ？ ★2 [158478931]
- 【んな専🏡】んなたん(・o・🍬)アソビ大全配信実況スレ🏰【ホロライブ▶】
- 高市早苗、G20会場で浮いてしまう 上目遣いで他国首脳にアピールするも効果ゼロ [165981677]