Perlについての質問箱 31箱目

Perlについての質問箱 ..

39:デフォルトの名無しさん
07/06/15 19:17:52
perl未経験者なんですが･･･。
いきなりのご質問でも大丈夫でしょうか？

40:デフォルトの名無しさん
07/06/15 19:21:10
あきらめて下さい。
あなたの質問は解決できません。

41:39
07/06/15 19:22:09
分かりました。
お手数をおかけしました。

42:デフォルトの名無しさん
07/06/15 19:38:06
perlよりも先に日本語を勉強して欲しい

43:39
07/06/15 19:41:12
>42
そうかもしれません。
本当にごめんなさい。

44:39
07/06/15 21:16:05
れろれろえれ男レオレオ炉得れろ絵

45:デフォルトの名無しさん
07/06/15 21:45:55
質問に応じて忍者ポイントで答えるよ！

46:デフォルトの名無しさん
07/06/15 21:48:29
>>43
いけない子だ。お仕置きだね。

47:デフォルトの名無しさん
07/06/15 23:17:53
>>39
こちらへどうぞ

くだすれPerl（超初心者用）
ｽﾚﾘﾝｸ(php板)l50

48:デフォルトの名無しさん
07/06/16 02:15:49
>>38
「たんなるバイト列」がU+00～U+FFと一致する事は、覚えておいて損はないかも。

例.
$a = substr(pack('CCCC',0xFC,0xFD,0xFE,0xFF).chr 256,0,4); # utf8フラグ付き
$b = pack('A*',$a)); # utf8フラグ無し
$c = pack('CCCC',0xFC,0xFD,0xFE,0xFF);
print "a:",unpack('H*',$a),"\n";
print "b:",unpack('H*',$b),"\n";
print "c:",unpack('H*',$c),"\n";
print "a eq b:",$a eq $b ? 1:0,"\n";
print "a eq c:",$a eq $c ? 1:0,"\n";
print "b eq c:",$b eq $c ? 1:0,"\n";

a:c3bcc3bdc3bec3bf
b:c3bcc3bdc3bec3bf
c:fcfdfeff
a eq b:0
a eq c:1
b eq c:0

49:48
07/06/16 02:22:20
ごめん、見て分るとおり2行目の　$b=pack('A*',$a)); は、 $b=pack('A*',$a); の間違い。

50:デフォルトの名無しさん
07/06/16 06:50:36
ゆ　る　さ　ん

51:デフォルトの名無しさん
07/06/16 10:28:05
無意味にユニコード系薦める奴は売国奴

52: ◆TWARamEjuA
07/06/16 11:16:28 BE:2940293-2BP(6824)
↑くすくす♪

53:デフォルトの名無しさん
07/06/16 17:05:17
「くすくす」は絵師だろ…常識的に考えて

54:デフォルトの名無しさん
07/06/16 20:01:52
アプリケーションがダイアログを表示した場合に、
それを検知し閉じる処理を行うアプリケーションを作りたいのですが
どういうモジュールを使えば良いですか。

OSはWindowsXP、
Perlのバージョンはv5.8.8 built for MSWin32-x86-multi-thread
です。

55:デフォルトの名無しさん
07/06/16 20:29:38
Win32::API

56:デフォルトの名無しさん
07/06/17 01:56:41
さきほどactiveperlのver5.88をインストールしました。
今、モジュールを使おうとしてエラーが出て苦戦しています。

CPANのモジュールを利用使用と思い
perl -MCPAN -e shellとコマンドプロンプトで打ち込んだのですが、

PerlCRT.dｌｌが見つからないというエラーが出て、

仕方ないのでactiveperlをアンインストール→インストール→試す→失敗→またアンインストール→( ´_ゝ｀)

の繰り返しです。

PPM install ほにゃらら

でもDBIのコネクトが失敗と出ます。
ｺﾚは一体どういうことなのでしょうか？
分かる人いたら教えて下さい！こんな初歩の質問でごめんなさい（＞ｗ＜）

OSはXPです。

57:デフォルトの名無しさん
07/06/17 03:38:01
Perlの前に InstMsi.exe を入れるといいかもしれん

58:デフォルトの名無しさん
07/06/17 10:51:03
この問題がわからないのでおしえてください。

標準入力（STDIN）から取り込んだテキストファイルの文中に出現する「単語」の出現頻度を調べあげ、出現頻度の多い順に並び替えたあと、標準出力に　単語　頻度数　の順で一行ずつ表示する。英単語の大文字／小文字の区別はしない。表示時にはすべて小文字で表示する。

59:デフォルトの名無しさん
07/06/17 12:39:00
宿題開き直りﾜﾛｽｗ

60:デフォルトの名無しさん
07/06/17 12:39:04
>57

返信ありがとうございます。
どうやらPATHの設定等で問題があったようです。
PATHを設定して順調に行くかと思いきや今度は、MSPDB80.dllが見つからないと言われました。
原因は分からないですが、また調べてみます。

PPMでもモジュールをインストールしよう頑張っているのですが
ppm gui failed:DBI connect failed:unable to open database faile(1)と
出ます。

activeperlの場合、特に何も設定せずにppmは使えるのでは・・・と思ったのですが。

61:デフォルトの名無しさん
07/06/17 12:52:53
>>58

perlじゃ無理
Javaならできるｗ

62:デフォルトの名無しさん
07/06/17 12:57:56
>>61

Javaじゃ無理
PHPならできるｗ

63:デフォルトの名無しさん
07/06/17 13:04:04
> 標準入力（STDIN）から取り込んだテキストファイルの文中に出現する「単語」の出現頻度を調べあげ、出現頻度の多い順に並び替えたあと、標準出力に　単語　頻度数　の順で一行ずつ表示する。英単語の大文字／小文字の区別はしない。表示時にはすべて小文字で表示する。

my $unko;
while (<STDIN>) {
　　map { $unko->{$_}++; } split(/\s+/, uc($_));
}
for ( sort { $_->{$b} <=> $_->{$a} } @$unko ) {
　　print $unko->{$_} . " " . $_ . "\n";
}

64:デフォルトの名無しさん
07/06/17 13:06:34
うそかいてた。

my $unko;
while (<STDIN>) {
　　map { $unko->{$_}++; } split(/\s+/, uc($_));
}
for ( sort { $unko->{$b} <=> $unko->{$a} } keys %$unko ) {
　　print $unko->{$_} . " " . $_ . "\n";
}

65:デフォルトの名無しさん
07/06/17 13:07:35
宿題丸投げに答えるのはどうかと思うが

66:デフォルトの名無しさん
07/06/17 13:12:39
こっちのほうがかっこいいお。

use strict;
use Template;

my $unko;
while (<STDIN>) {
　　map { $unko->{$_}++; } split(/\s+/, lc($_));
}
my $rel;
for ( sort { $unko->{$b} <=> $unko->{$a} } keys %$unko ) {
　　push(@$rel, { count => $unko->{$_}, name => $_ });
}

Template->new->process(\<<'EOF', { rel => $rel });
[% FOR x IN rel -%]
　　[% x.name %] [% x.count %]
[% END -%]
EOF

67:デフォルトの名無しさん
07/06/17 13:19:46
こんな糞宿題に TT ってあほだろおまえｗ

68:デフォルトの名無しさん
07/06/17 14:11:47
もっとCPANバリバリで

69:デフォルトの名無しさん
07/06/17 14:14:35
DBIx::Class で SQLite 使う感じで。

70:デフォルトの名無しさん
07/06/17 15:12:01
ホントにperlのためにつくられた問題というか宿題という感じがするね

71:デフォルトの名無しさん
07/06/17 15:14:04
perl 脳。

72:デフォルトの名無しさん
07/06/17 15:49:56
しかし perl のソースは汚いな

73:デフォルトの名無しさん
07/06/17 16:40:45

毎回Perlは汚いと煽ってる馬鹿に言いたいんだが…
言語仕様によって汚くなるというのは無いんだよ、これは。
それを言う偉い先生方の見解によれば、要は書き手によって変わると。
Perlは柔軟性が高い余り、完全に理解出来てない所謂無知が多い。
そしてそういう奴等が世の中に糞コードを放つから、総合的に汚く見えると。
つまり、君は騙されているんだよ。

74:デフォルトの名無しさん
07/06/17 17:14:35
そんな汚いかな？
$unkoは汚いけど

75:デフォルトの名無しさん
07/06/17 17:39:32
$anal

76:デフォルトの名無しさん
07/06/17 17:53:29
>>58 がCPANにこのモジュールを公開すれば、
ソースは use、new、print の３行だけの美しいコードになるべ。そして3行を提出。

77:デフォルトの名無しさん
07/06/17 18:16:02
それはまるで、C か何かで書けと言われた課題に対し、use POSIX; とかして提出したひとみたいですね。

78:デフォルトの名無しさん
07/06/17 18:45:22
>>72
俺のコードはきれいだぞ

79:デフォルトの名無しさん
07/06/17 18:49:37
俺のケツも綺麗だよ

80:デフォルトの名無しさん
07/06/17 21:05:43
僕の肛門もリファクタリングされそうです＞＜

81:デフォルトの名無しさん
07/06/17 21:13:57
俺にきれいなコードを書くのは無理とわかった。

#!/usr/bin/perl
use strict;
BEGIN { require warnings && import warnings }
local $/ or grep ++$un'ko{$_},map m/\b\w+\b/g,uc<STDIN>;
print lc and printf join $un'ko{$_},unpack 'a'x2," \n" for reverse sort { $un'ko{$a} <=> $un'ko{$b} } keys %un'ko;
__END__

82:デフォルトの名無しさん
07/06/17 23:31:49
こうしてPerlを知らない優秀なPerlプログラマがまたひとり巣立って行く

83:デフォルトの名無しさん
07/06/17 23:44:17
>>81
わざと汚く書いてるよねｗ

84:54
07/06/18 01:41:29
Perlでは難しいんでしょうか

85:デフォルトの名無しさん
07/06/18 02:14:06
>>55

86:デフォルトの名無しさん
07/06/18 12:21:14
もうちょっとシンプルにならんかなぁ
#!/usr/bin/perl
use strict;use warnings;
my(%chinko,%manko);$/=undef;
print "$_:$chinko{$_}\n" for sort {$chinko{$b}<=>$chinko{$a} || $a cmp $b} grep !$manko{$_}++ , map {$chinko{$_}++;$_} split /\s+/,lc <STDIN>;

87:デフォルトの名無しさん
07/06/18 13:32:46
そういう変なのをもっともらしく貼り付けるから perl はダメとかいわれるんじゃないの？

88:デフォルトの名無しさん
07/06/18 13:47:23

これはこれで綺麗に見えるのだが、
その感性を会得出来ないのは、
まだ君が未熟である証拠であろう。

89:デフォルトの名無しさん
07/06/18 13:55:00
>>86
%chinkoと%mankoわけるのは無駄だろ?

90:デフォルトの名無しさん
07/06/18 14:51:34
> これはこれで綺麗に見えるのだが、

廃人になる前にドラッグやめたほうがいいよ。