Perlについての質問箱 43箱目at TECH

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
400:デフォルトの名無しさん 10/05/19 12:22:56 ｱﾊﾊﾊ 401:デフォルトの名無しさん 10/05/19 14:46:33 たとえば、[[:ascii:]]から'<'を除いた文字クラスを表わすにはどうしたらいいでしょうか？ 402:デフォルトの名無しさん 10/05/19 18:51:09 もともと入ってないやん 403:デフォルトの名無しさん 10/05/21 21:53:00 数百のファイルを処理するPerlスクリプトがありまして、それがシーケンシャルに処理してて クソ時間がかかるため、マルチスレッドでやらせようとPerlについて勉強しています。 で、いまんとこ、セマフォで並列処理数を制御し、joinするためだけのスレッドを動かして かたっぱしからjoinするようにしています。おかげで処理時間は半分以下になったのですが、 これを添削していただけないでしょうか。もっとエレガントなやり方があれば教えていただきたいです。 よろしくおねがいします。 #!/usr/bin/perl use strict; use File::Basename; use File::Path; use threads; use threads::shared; use Thread::Semaphore; use Codemap; use SVG; my $concurrency = 5; my $semaphore = Thread::Semaphore->new($concurrency); my $exitflag :shared = 0; my $jointhreads = threads->new(\&joinThreads); while (@ARGV) { my $orig_svg = shift(@ARGV); $semaphore->down; threads->new(\&doSplit, $semaphore, $orig_svg); } $exitflag = 1; $jointhreads->join; exit 0;

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch