Perlについて

**デフォルトの名無しさん** · 2008/08/04(月) 20:58:41

質問スレはあるけど、Perl自身について語るスレがないので、立てました。

**デフォルトの名無しさん** · 2012/01/20(金) 21:22:29.16

べくたーｗｗｗｗｗ

**へたくそ** · 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");

**へたくそ** · 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");

**先生より** · 2012/01/20(金) 21:57:35.26

何人かの生徒から知らせを受けて、まさかと思いここをアクセスしたら
問題がそのまま掲載されていて、驚いています。

ここに掲載された回答を書いたひとは配点しませんので、そのつもりで
いてください。

問題を載せた君は月曜日に職員室に来てください。誰かは大体分かって
います。

**先生より** · 2012/01/20(金) 22:10:10.58

>>631
【正規表現を使い、(3-A)の$textの中の「表」を「裏」に置換して、】

「正規表現で置換する」とは言っていません。条件は、
1. 正規表現を使うこと
2. 置換すること
です。

あわてずに問題を読みましょう。
あ、それと君も職員室に来てください。

**デフォルトの名無しさん** · 2012/01/20(金) 22:11:14.75

１．性器表現を使うこと
２．痴姦すること

ですね！

**デフォルトの名無しさん** · 2012/01/20(金) 22:15:09.53

下ネタは5.8のほうでやってください。そっちに好きなひとがいるんで。

**先生より** · 2012/01/20(金) 23:39:20.06

誰も名のらなかった場合は、全員を減点します。
校長先生には許可をもらいました。

おや？そうなると進級できないひとがでてきそうですね。
もしかして、書き込んだのは．．．

**問題です** · 2012/01/21(土) 12:51:49.27

>>633-634
グッジョブでした。

答え · 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++;
}

答え · 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);

答え · 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

答え · 2012/01/21(土) 13:25:14.16

コードはTMTOWTDIってことで。

こんな面倒なことをやっても、このコードはCP932専用。
EUC-JPかUTF-8に変更されると書き直しに迫られる。
Perlの三大美徳の怠惰を忘れずに。

**デフォルトの名無しさん** · 2012/01/21(土) 14:32:17.48

で本当の問題は、これをEncodeモジュールを使って
CP932、EUC-JP、UTF-8全て対応にするという物。

**デフォルトの名無しさん** · 2012/01/21(土) 21:47:42.75

JperlじゃEncodeモジュール使えないじゃん。確かにそれは問題だな。

**デフォルトの名無しさん** · 2012/01/21(土) 21:54:33.42

なんだ、やっぱりダメなんだなEmcodeは

**デフォルトの名無しさん** · 2012/01/21(土) 22:46:51.21

# 問3) 裏から覗く？　難易度:★★☆

# my $text = '\\表\\\助\\封\\呂\\表\\\'; ← 表の後ろに \ が3つ
my $text = '\\表\\助\\封\\呂\\表\\';

$text =~ s/表/裏/g;

print $text;

__END__
※ このスクリプトは jperl を使って実行します

問題では変数 $text の表の後ろに3つの \ があるためにおかしな
ことになっていますが、現実の問題としては2つの \ ということに
なるでしょう。

こうすることで正規表現による置換ができます。

**デフォルトの名無しさん** · 2012/01/22(日) 11:29:56.92

英語版のperlで日本語を処理しようとするのはナンセンスです。
すでにjperlがあるわけですから賢く使い分けましょう。また国際化
対応していれば日本語も扱えるとのたまう輩もおりますが、軽く
受け流して、可能なら5.8スレの方に誘導してあげましょう。
面倒な場合はスルーでも構いません。

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

問題がつまらんね

**デフォルトの名無しさん** · 2012/01/22(日) 11:55:28.79

まあ、義務教育の中等学校だからそんなもんだね

**デフォルトの名無しさん** · 2012/01/22(日) 11:56:43.81

jperlにしがみつく人が屁理屈で問題作ってるんだよ
もし学校で「jperlだけを使いなさい、jperlを前提としたプログラムを作りなさい」って
教育してるなら日教組並みの害悪

**デフォルトの名無しさん** · 2012/01/22(日) 12:22:14.65

>>652
今更jperlは無いわ。
目が節穴じゃね？

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

**デフォルトの名無しさん** · 2012/01/22(日) 12:38:11.18

いまさらEncodeモジュール絡みの話をしているPerlの人って……

**デフォルトの名無しさん** · 2012/01/22(日) 12:44:34.84

>>645
モダンにいくなら、UTF-8で書いて、こんな感じ。

use utf8;
use Encode::Locale;
use open qw(:encoding(locale) :std);

...

**デフォルトの名無しさん** · 2012/01/22(日) 13:19:32.77

ヒント：ヒューマンリソースとムーアの法則について

**デフォルトの名無しさん** · 2012/01/22(日) 14:08:47.05

>>657
ホウホウそれで

**デフォルトの名無しさん** · 2012/01/22(日) 17:50:00.68

たくさんの回答、ありがとうございました。
中には学校で習ったものよりも高度なものがあり、パールの苦手なぼく
にもとても参考になりました。でも将来プログラマになるわけではない
ので簡単なJPERLで十分かな？と思っています。

明日、出頭し処分を受けることになりそうですが、あまり後悔はして
ません。ここでいろいろ勉強になったからです。

ところで職員室は第一ですか？それとも第二のほうがいいですか？

**デフォルトの名無しさん** · 2012/01/22(日) 18:33:21.22

展開がキチガイ過ぎて言葉が出ない…

**デフォルトの名無しさん** · 2012/01/22(日) 18:52:48.71

jperlは別に簡単ではないぞ。特定の用途の場合にのみちょっと便利なだけだ。

**先生より** · 2012/01/22(日) 21:23:13.30

第二です。8:40までにくること！

**デフォルトの名無しさん** · 2012/01/22(日) 21:31:34.74

承知しました

**デフォルトの名無しさん** · 2012/01/22(日) 22:03:07.77

便利だったら無理に勧めなくたって、みんな使い出すんだろうね
他の何かをdisるのはなぜか危機感を感じてる証拠だろうね

**デフォルトの名無しさん** · 2012/01/22(日) 23:16:21.58

>>659
ああ、一人で幸せに暮らしてくれ。
JPerｌ(Perl 5.003_07)というCPANどころかData::Dumperすら無いシロモノを他人に勧めるな。

**デフォルトの名無しさん** · 2012/01/22(日) 23:17:03.60

そりゃあ、上のスクリプトを比べてみれば一目瞭然だもの。

**デフォルトの名無しさん** · 2012/01/22(日) 23:26:02.71

道具を使うのは人間なんだから、使いやすいものをそのときどきによって
選択すればいいよね。あるから使わないといけないと考えるのは本末転倒
で無駄な苦労をすることになるよね。でもまあご自由にどうぞ。

uy · 2012/01/23(月) 17:02:41.36

可愛そうに･･････

>>667
最近、誰の受け売りだか知らんがこういう事言ってる奴いるけど

はっきりいって、C#.NET知ってればほとんどのことは出来るし、
ようは言語同士の連結の仕方を知っているかどうかだけど、大丈夫か？

Rubyだけ使っていたって、そこから.NETやC呼び出せばほぼ何でも出来るようになるわけだけど

Perl使いさんたちは、言語同士の連結のやり方　わかっていますか？

**デフォルトの名無しさん** · 2012/01/23(月) 17:07:17.50

へえC#.NETって環境を問わずどこでも使えるんだー知らなかったよ
言語同士の連結ってどうやるの？連携のさせ方ならいろいろあるだろうけど連結は聞いたことなかったな

uy · 2012/01/23(月) 17:59:27.39

機械語で想像できないから
連結って言葉に違和感を覚えるのか
それとも、
dllファイルを別々にしたときの挙動すら、わかっていないのか
さすがにPerl使ってる奴は井の中の蛙という言葉がふさわしい･･･

ああ可愛そうに
ひたすら可愛そうに

uy · 2012/01/23(月) 18:00:28.23

この手のバカ

スクリプト言語しか出来ないタイプには多いだろうな

perlより、まずコンピューターの基礎からやり直したほうがいいのではないか

**デフォルトの名無しさん** · 2012/01/23(月) 19:03:38.76

C#.NETでなんでもできるとかほざいてる奴が
井の中の蛙だのコンピューターの基礎だの烏滸がましいわｗ

**デフォルトの名無しさん** · 2012/01/23(月) 19:04:09.63

>>668
PerlはモジュールをCで書くことも可能であれば、Cから呼び出すことも可能だよ。
ActivePerlならWIndowsスクリプトファイル(wsf)でVBやJScirptと混ぜ書きもできる。

でさ、アセンブラを20年ぐらいやってるとさ、ポストデクリメント演算子に
違和感を覚えるんだけどさ、あれどう思う？

ああ、それと>>667の意見には同意です。

**デフォルトの名無しさん** · 2012/01/23(月) 21:30:12.88

えさは足りてるみたいなので与えないでください

uy · 2012/01/24(火) 00:02:01.90

>>673
ほら突っついたらでてきた
井の中の蛙ｗｗｗｗｗ

そんなの出来ることは当たり前なのに

どうした？　どこか痛いのか？

目的の為に言語を変えるか、
俺が言いたいのは
お前たち程度のレベルで、目的の為に最適な言語がいつから選べると慢心しているのかって事だ

CGIを書くのにCは使わない？　そんなのは当たり前で
段階はその次だ

CGIを書くためにどのWeb言語を使うのか？
その選択がお前たちは出来ないから・・・・こんなスレにいるんだろｗｗｗｗｗｗｗｗバカかｗｗｗｗｗｗｗ
perl一生つかっていろよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗＷＷＷＷＷＷＷＷＷ

**デフォルトの名無しさん** · 2012/01/24(火) 01:16:41.40

早い話が、結局何をやってもものに出来なかった人の嫉妬ですね。

**デフォルトの名無しさん** · 2012/01/24(火) 01:31:36.16

nyは専ブラであぼーんだな

**デフォルトの名無しさん** · 2012/01/24(火) 01:54:43.15

世の中にはCで書かれたCGIもあるんだぜ
しかも身近に

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 2012/01/24(火) 19:43:02.60

index.cgiを開いたらバイナリだったでござるの巻

**デフォルトの名無しさん** · 2012/01/25(水) 17:49:38.95

ぶっちゃけもはやスクリプト自体はutf-8で書くことが多くなってるし
jperlとか害悪としか思わない

**デフォルトの名無しさん** · 2012/01/25(水) 22:47:18.47

早く社会に出て役立つプログラム作ろうな。

**デフォルトの名無しさん** · 2012/01/26(木) 00:24:25.93

企業は競争力や応用力を判定している
薀蓄は相手にしていない

**デフォルトの名無しさん** · 2012/01/27(金) 01:25:11.60

ぶっちゃけ単にエンタープライズ環境を知らないだけなんだろうな
10年、20年と動かすソフトウェアを流行りに合わせて書くわけには
いかんからな

**デフォルトの名無しさん** · 2012/01/27(金) 02:22:30.64

Java4が稼動してそうで怖い話だな。

**デフォルトの名無しさん** · 2012/01/27(金) 08:36:33.85

Java4のソースコードなら
今も最新Javaで普通に動く。

**デフォルトの名無しさん** · 2012/01/27(金) 13:36:37.34

>>686
コーディング規約でJava1.4縛りってあるものなの？
Java5以降の機能は使用禁止みたいな。

**デフォルトの名無しさん** · 2012/01/27(金) 17:46:45.90

>>687
ジェネリックス禁止とか、for-each文禁止とかは企業なら普通にあるだろ。
互換性もそうだが、Javaオタクを排除して誰でも保守できるようにするという
重要な側面がある。

まあ、Java5、Java6で初めて追加された有用なクラスライブラリもあるから、
それはあくまでコーディング規約上の問題で、コンパイルと実行にはJava6を
使っているというケースもあるが。

……スレ違いだがマジレスしてしまった。

**デフォルトの名無しさん** · 2012/01/27(金) 21:00:28.98

>>688
なるほど、過去のバージョンに固定しての開発は普通にあるのね。
ジェネリクスは置いといて、auto-boxingが無いだけでも面倒そう。

**デフォルトの名無しさん** · 2012/01/31(火) 09:38:20.86

ActivePerlでWin32::GuiTestを使いたいのですが
PPMに出てきません
どこに有りますか？

**デフォルトの名無しさん** · 2012/01/31(火) 20:25:29.54

>>690
はずしているかもしれませんが、guitestまたはwin32-guitestで
検索してみてください。Win32::gutestでは出てきません。

あと、ppmが走っているようなので大丈夫のようですが、ユーザー名に
日本語を使用するとppm関係でこけた記憶があります。

**デフォルトの名無しさん[** · 2012/01/31(火) 21:17:48.24

>>691
ありがとうございます
試してみます

**デフォルトの名無しさん** · 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 リポジトリの追加あたりでググって見てください。
ミスリードしたみたいですいません。

**デフォルトの名無しさん** · 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 );

**694** · 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
]

**デフォルトの名無しさん** · 2012/02/06(月) 22:52:57.31

proxy経由しないでも同じ結果か等の原因の切り分けはしたの？

**デフォルトの名無しさん** · 2012/03/04(日) 19:10:14.90

.(ピリオド)を_(アンダースコア)に変換しようとして、\マークを付け忘れたので、
ファイルの全てが_で埋め尽くされたファイルが出力されたorz

**デフォルトの名無しさん** · 2012/03/05(月) 00:59:57.32

便箋w

**デフォルトの名無しさん** · 2012/08/04(土) 13:16:49.80

Perlコード汚すぎる。

**デフォルトの名無しさん** · 2012/08/04(土) 13:29:41.35

俺なんかそのまま納品して、夏休みとった年があるｗ^_^

**デフォルトの名無しさん** · 2012/10/17(水) 18:25:33.11

文字列の処理が容易である
とくに文字列のパターンマッチ能力に優れている
動的データの処理に優れている
OSとの連携に強い（OSのコマンド、GUIツールキット）
インタプリタ型である
（スクリプト言語に共通する特徴）

スクリプト言語のいろは｜Cマガジン2000年10月号

**デフォルトの名無しさん** · 2012/10/20(土) 14:50:00.72

> 文字列の処理が容易である
もちろん「2000年10月の時点では」っていう意味だろうけどねｗ

CがC++になって迷走するのと同様、Perlも赤の他人が拡張すると迷走して
その後は．．．

**デフォルトの名無しさん** · 2012/10/24(水) 02:32:36.90

>>699
もともと、アドホックな使い捨てのコードを書くための言語だからなー。
コードの保守性とか再利用性とか始めたらダメ。
可読性なんて考えずに、組み易い書き方で手早く作って、
パッと使って、そんでおしまい・・・というのが正しい使い方。

**デフォルトの名無しさん** · 2012/10/25(木) 11:28:52.33

保守性・再利用性ならCOBOL一択だよね！！

**デフォルトの名無しさん** · 2012/10/26(金) 01:46:36.75

同じような仕事にしか使わんからな。

**デフォルトの名無しさん** · 2012/11/10(土) 11:32:03.17

今の時代ならDSLといえば
COBOLのすばらしさが分かるだろう。

**デフォルトの名無しさん** · 2012/11/10(土) 13:11:12.89

read うんたらかんたら
at end
* EOF時の処理
not at end
* 読めたときの処理
end-read

のファイル入力構文は初めて見たときカルチャーショックだったな

**デフォルトの名無しさん** · 2012/11/17(土) 14:18:46.56

言語が違えばやり方は違うんだから想定の範囲内だがな
むしろC言語系の方が後からできたわけだから(いい意味で)カルチャーショック
だったが
いずれにしても遠い過去の話だな、おじいさんよ

**デフォルトの名無しさん** · 2012/11/17(土) 17:59:06.65

>>708
いやJavaを先にやってたから
後でCOBOLのコード見たときにカルチャーショックだったんよ
EOFを返してもらうんでなく、構文としてやるってのがね

**デフォルトの名無しさん** · 2012/11/17(土) 20:21:00.74

でもパソコンじゃあC言語の前にBASICがあって、それって
いま言ってるCOBOL風になってなかったっけ？
709はパソコンの創世記を知らない若い世代なのかな

**デフォルトの名無しさん** · 2012/11/17(土) 21:32:41.75

>>710
昔を知らないのは当たり…なのかな、自分が使ったことのあるBASICは
VBとか、N88なら互換系BASICくらい
(PC98でのN88も「その時点で既に年代物として」一度だけ触ったことはある)
でもそれらもC系と同じくEOF()関数みたいなので判定する形式だったような…
EOF判定自体をブロック構文にしてしまってるのは今のところCOBOL以外見たことないっす

**デフォルトの名無しさん** · 2012/12/03(月) 14:49:49.57

初心者を育てるのがPHP、初心者を袋叩きにして人格否定までするのがPerl

**デフォルトの名無しさん** · 2012/12/03(月) 23:15:25.81

PHPもPerlもただのプログラミング言語だから育てたりとか袋叩きにしたりとかはしない。
というかできない。
なにか違う次元の違うしろもののことを言ってるんだろうけど異次元の住人の話はよくわからんな。

**デフォルトの名無しさん** · 2012/12/04(火) 00:49:41.86

「同じ問題でも解き方は人によって違っていい」ってのが Perl の思想だからな。
人格否定なんてありえない。

**デフォルトの名無しさん** · 2012/12/04(火) 05:53:42.12

解き方は人によって違っていいが
書き方は統一しろ。

**デフォルトの名無しさん** · 2012/12/05(水) 08:28:36.86

>>715
コード整形ツールを使いたまえ

**デフォルトの名無しさん** · 2012/12/15(土) 21:53:54.04

初心者を袋叩きにして人格否定までするのはモダンPerl。
いわゆる普通のPerl利用者はそんなことはしない。混同しないこと。

**デフォルトの名無しさん** · 2012/12/16(日) 00:08:21.80

> 初心者を袋叩きにして人格否定

誰のこと？そんな人いないよ。

**デフォルトの名無しさん** · 2013/01/12(土) 17:48:21.31

え？

**デフォルトの名無しさん** · 2013/01/13(日) 04:08:36.23

>>718←何言ってんのコイツｗｗｗ

**デフォルトの名無しさん** · 2013/01/20(日) 03:19:14.74

>>717
トロールのトロールのトロールみたいなコミュニティだよね。モダンperlって

**デフォルトの名無しさん** · 2013/01/28(月) 23:19:32.03

いろいろ複雑なテキスト解析をして、最終的にExcelのファイルにしたい
要は、既にあるExcelのファイルとフォーマットは同じで、
中に書いてあるテキストだけ入れ替える感じ

どういうステップを踏むのがいちばん楽だろう

**デフォルトの名無しさん** · 2013/01/28(月) 23:54:01.34

一回こっきりならコピペだな

**デフォルトの名無しさん** · 2013/01/29(火) 00:06:13.05

一回なら間違いなくそうするけど、
多分、100近くある

**デフォルトの名無しさん** · 2013/01/29(火) 00:37:27.03

csvでいいならcsvを吐き出せばいいが
Excelブックを作りたいならPerlでできるのかそれ

**デフォルトの名無しさん** · 2013/01/29(火) 03:02:33.78

ファイルのi/oでexcelのシートを作るのは面倒だから、
use Win32::OLE::Const 'Microsoft Excel';
で、ExcelのセルいじっちゃいなYO

**デフォルトの名無しさん** · 2013/01/29(火) 08:21:49.20

Perl使いをなめるなよ
CPANにはExcelファイルを出力するモジュールがいっぱいある
ttp://search.cpan.org/search?query=Excel&mode=all

**デフォルトの名無しさん** · 2013/01/29(火) 19:31:23.69

ダイレクトでxlsを吐くんじゃなくて、
一旦テキストに出して、そこからxlsを作るExcelマクロを走らせるのが楽

全部perlでとか、全部Excelでやろうとすると、手間が増える上に保守性も落ちる

**デフォルトの名無しさん** · 2013/02/17(日) 02:01:28.40

うん、Excelファイルはすごく複雑
MS以外が不具合なしに扱えるものじゃない。
絶対バグでハマる。

**デフォルトの名無しさん** · 2013/02/17(日) 09:22:06.54

中間ファイルのフォーマットをきっちり決めて、
Excel 側で、マクロなりインポートなりで、
データ取り込む手段を確立して、
それに合わせてファイルを生成するのがおそらく一番間違いが少ない。

**デフォルトの名無しさん** · 2013/02/17(日) 13:36:57.25

>>722は結局どうやったんだろうね