- 1 名前：デフォルトの名無しさん mailto:sage [2012/10/07(日) 00:48:39.00 ]
- どうぞー
- 26 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 10:06:15.64 ]
- my @array_unique = keys %{{map {$_,1} @array}};
perl 5.14 以降なら
my @array_unique = keys {map {$_,1} @array};
- 27 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 11:07:41.23 ]
- ひと頃List::Utilが湧いたのはPHPとの比較が原因か
- 28 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 13:27:23.56 ]
- >>26
なんかバッドノウハウ臭が強いな。
- 29 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:21:09.99 ]
- んなこたあない。
- 30 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:24:32.17 ]
- ここでList::Utilを持ち出し、直後からスレが荒れるのが定番。
- 31 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:31:44.97 ]
- あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
get_num();
my $num=200
while(1)
{
if(new_num() >=$num)
{
okと表示
}
}
okがうまく表示されません
毎回get_numでサイトにアクセスして取得しているというのが悪いんでしょうか？原因がわかりません教えてください
- 32 名前：31 mailto:sage [2012/10/08(月) 14:33:07.32 ]
- new_num()で取得した値は $numより大きいです
大きいのになぜか比較されずにスルーで何も表示されずループです
- 33 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:39:56.54 ]
- >あるサイトにアクセスして数値を取得してreturn $num;で値を返す関数を作ったとします
↑これは get_num() のことですか？new_num() のことですか？
get_num() は return $num; しないんですか？戻ってきた値は使わないんですか？
>毎回get_numでサイトにアクセスして
↑ get_num() は while の中にありませんが、この外にループがあるんですか？
- 34 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:43:57.35 ]
- use strict; 落ちか
腕を上げたようだな、モダンPerl。
- 35 名前：Perl忍者 ◆M5ZWRnXOj6 [2012/10/08(月) 14:44:44.21 ]
- >>31
$|=1;
それかprint "ok\n";
改行いれとけ
- 36 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 14:46:12.89 ]
- 改行入れてもループは終わらんだろｗ
- 37 名前：デフォルトの名無しさん [2012/10/08(月) 15:14:18.81 ]
- >>31
マジレスすると
お前みたいな低脳には無理
- 38 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 15:34:01.73 ]
- 荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし
消えろやゴミが
- 39 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 15:43:26.69 ]
- >>37=>>38
- 40 名前：デフォルトの名無しさん [2012/10/08(月) 16:04:33.60 ]
- >>37=>>38=>>39
- 41 名前：デフォルトの名無しさん [2012/10/08(月) 16:16:12.31 ]
- >>31=>>39
- 42 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 17:19:35.10 ]
- $|=1;
my $num=200; ←ｾﾐｺﾛﾝ忘れるな
while(1){
if(get_num() >= $num){ ← get_num()、な
print "ok\n"; ← うるせぇやつがいるから改行、な
last; ← これなけりゃ無限ループだわな
}
sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ
}
- 43 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 18:01:11.94 ]
- なんで>>31みたいなカスがプログラミングなんかに手を出したのか疑問。
- 44 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 18:06:38.78 ]
- >>43
そんなのが疑問になるのは
お前が馬鹿だからじゃないだろうか。
- 45 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 18:11:25.50 ]
- >>43=>>44=>>37=>>38
- 46 名前：デフォルトの名無しさん [2012/10/08(月) 18:20:57.42 ]
- >>43=>>44=>>37=>>38=>>31=>>45
- 47 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 18:46:17.85 ]
- 文字列 $str の末尾の「.cpp」を「.o」に置換し新たな文字列 $new_str を生成したいのですが
s/// だと元文字列を書き換えてしまいます
コピーしてから置換でも良いのですが、書き換えずに置換する関数や演算子はないでしょうか？
- 48 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 19:10:50.54 ]
- >>47
寝言は寝て言えキチガイ
- 49 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 19:13:40.44 ]
- >>44=>>48
- 50 名前：デフォルトの名無しさん [2012/10/08(月) 19:24:24.71 ]
- >>47のような害虫はム板から駆除しなければならない。
- 51 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 19:35:47.99 ]
- >>47
s/// に /r を指定するとよろし
- 52 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 19:47:46.05 ]
- >>47
演算子一覧くらい検索すればいくらでも出てくるだろ
それすら検索できないって本物の精神異常？
- 53 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 19:56:47.23 ]
- >>47はプログラミングに向いてない。
- 54 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:15:10.88 ]
- 煽り叩きに加えて今度はイコール厨まで参戦ですか
ほんとスレの空気を悪くすることに関しては息ぴったりですねお前ら
- 55 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:23:58.30 ]
- このスレは>>31>>47叩き基地害イコール厨等まともじゃない奴らの隔離スレだからな。
- 56 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:35:31.31 ]
- >>51
ありがとうございました
手元の資料に無かったので調べたら割と最近の仕様みたいですね
- 57 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:43:06.24 ]
- >>56
いいから二度と来るなよ
- 58 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:48:41.51 ]
- >>57
さっさと初心者を卒業しろよってことかな？
出所者を見送る看守のようだ。
- 59 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 20:49:06.45 ]
- >>57
来ちゃいました
ﾃﾍﾍﾟﾛ♪
- 60 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 22:37:14.94 ]
- >>47はマジでクズ
2chを代理検索か何かと勘違いしてないか？
- 61 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 22:47:29.05 ]
- 質問してこういう扱いうけて荒らしてるのかこの粘着くんはｗ
- 62 名前：31 mailto:sage [2012/10/08(月) 23:31:22.78 ]
- >>35
うまく出力されました
$|=1;とは何ですか？
改行の理由も教えてください
>>42
$|=1;をつける理由は？
lastだとループが終わってしまうので
- 63 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 23:37:12.37 ]
- >>32
>大きいのになぜか比較されずにスルーで何も表示されずループです
ループして困っているのか、ループしたいのか質問をはっきりしろ
- 64 名前：デフォルトの名無しさん mailto:sage [2012/10/08(月) 23:46:28.06 ]
- >書き換えずに置換する
何をしたいのか
- 65 名前：デフォルトの名無しさん [2012/10/08(月) 23:58:56.98 ]
- こういう糞みたいな質問してる連中がム板のレベルを下げてる
- 66 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 01:13:51.30 ]
- 馬鹿の>>63-64が釣れたｗｗｗ
マジ釣り掘りｗｗｗｗｗ
- 67 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 03:50:12.06 ]
- >>61
荒らしは質問すらしてないよ。
質問者になりすましての煽りは入れてるが。
- 68 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 11:14:53.75 ]
- 何で分かるの？
あ、ご本人様ですか。
荒らしもやりながらこんな場末の糞スレチェックまでご苦労様です。
- 69 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 13:42:01.38 ]
- プロキシのレスポンスタイム計るにはどうするの？
教えてくれ
6.5s
5,8sとかあるだろ？あれ
- 70 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 14:26:59.97 ]
- それはPerl限定の話でもなさそうだし、流石にWebProg板で聞いてくれ
- 71 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 16:16:14.44 ]
- PHPでいうマジッククォートみたいなのない？
sjisで送信するとき表とかがエスケープされずにエラーでちゃうんだけど
自動でエスケープしてくれる関数みたいなの無いの？
教えてください
- 72 名前：デフォルトの名無しさん [2012/10/09(火) 16:57:01.82 ]
- 自分で調べられないお前にはPHPがお似合いだ
- 73 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 17:05:55.35 ]
- >>71
ふたつのことを混同してしまってると思われる
「Perl XSS対策」「Perl Unicode」でそれぞれググれ
そして前者(XSS)にに関しては今後はWebProgへどうぞ
- 74 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 17:13:03.31 ]
- >>71=基地害
- 75 名前：Perl忍者 ◆M5ZWRnXOj6 mailto:sage [2012/10/09(火) 17:33:58.22 ]
- >>71
Sjisいれろ
search.cpan.org/~ina/Char-Sjis/
- 76 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 17:49:33.02 ]
- >>72-74
追い出すなって。
ここは>>71みたいな社会のゴミ用隔離スレなんだからさ。
- 77 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 20:44:10.43 ]
- PHPのマジッククォートとSjisっておんなじものなのか？
微妙にやること違うと思うぞｗ
- 78 名前：デフォルトの名無しさん mailto:sage [2012/10/09(火) 22:09:35.85 ]
- 初心者でUnicodeはきついかもな
ごちゃごちゃしてて何がなんだかさっぱり分かんない
初心者にはshiftjisがいい
- 79 名前：デフォルトの名無しさん mailto:sage [2012/10/10(水) 00:13:36.93 ]
- Perlスレの頭にUnicode絡みのテンプレなかったっけ
- 80 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 00:36:02.70 ]
- require 'jcode.pl';
だっけ？
- 81 名前：デフォルトの名無しさん [2012/10/12(金) 01:02:04.55 ]
- >>80
確信ないなら書くなゴミ
さっさと失せろキメェんだよ
- 82 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 01:03:01.58 ]
- >>9 「use Encode; 」
- 83 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 01:38:15.26 ]
- それ言うなら use utf8; だろ
EncodeはUnicode以外だって扱えるんだから
でも牙が伸び過ぎると自滅してしまうこともある
ttp://blog.nakatanigo.net/archives/50474313.html
- 84 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 02:28:37.13 ]
- >>80は頭がおかしい。
- 85 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 02:37:31.52 ]
- >>82
ありがとうそこにあったのか
- 86 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 03:28:56.95 ]
- >>80
もう来なくてもいいよ
- 87 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 12:02:40.96 ]
- >>80=ゴミクズ
- 88 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 15:53:07.74 ]
- いつもの基地外は本スレに行けよ
- 89 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 18:49:11.85 ]
- ↑はい、いつものキチガイ入りましたー
- 90 名前：デフォルトの名無しさん mailto:sage [2012/10/12(金) 21:16:15.75 ]
- 88はいつもただの質問者を荒し扱いしたりしてる奴だろう、放置よろ。
- 91 名前：デフォルトの名無しさん mailto:sage [2012/10/28(日) 18:01:11.94 ]
- >>80
それです。ｻﾝｸｽﾀﾞｱｲﾅ
- 92 名前：デフォルトの名無しさん mailto:sage [2012/10/28(日) 20:13:19.68 ]
- 初心者の彼女がjacode.pl使ってて時代の変化を感じた
- 93 名前：デフォルトの名無しさん mailto:sage [2012/10/31(水) 00:29:58.66 ]
- いつまでもEncodeでエンコしててもしょうがないしな
- 94 名前：デフォルトの名無しさん mailto:sage [2012/11/06(火) 01:38:15.62 ]
- ttp://kotobank.jp/word/えんこ
- 95 名前：デフォルトの名無しさん mailto:sage [2012/11/12(月) 19:41:16.44 ]
- ActivePerl5.16.1使用中です。
---
print DAT @dat;
---
このようにして配列を書き出そうとしたのですが
なぜかテキストファイルに繁栄されません。
何か情報をご存知の方いらっしゃいませんか？
- 96 名前：デフォルトの名無しさん mailto:sage [2012/11/13(火) 05:02:27.13 ]
- ファイルハンドルであろうDATのopen文はいかに
- 97 名前：デフォルトの名無しさん mailto:sage [2012/11/13(火) 22:13:06.51 ]
- 以下の一行スクリプトに文字を食わせて「XX月◯◯日のお知らせ！」の次の行から「-----」の前までを取り出そうとしています。
最期のs/^ +//は各行の先頭の全角の空白を取ろうとしたのですが、これが働きません。が、抜き取り自体は成功していました。
逆に、use utf8とすると/正規表現/が全くひっかかりらず何もprintされません。
perl -e '
#use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };
s/^\s+//;
s/^ +//;
print;
}'
- 98 名前：デフォルトの名無しさん mailto:sage [2012/11/13(火) 22:28:35.29 ]
- perl -e '
use utf8;
while (<>)
{
if (/\d+月\d+日のお知らせ！/) { last; };
#skip the line;
};
while (<>)
{
if (/-----/) { last; };
s/^\s+//;
{
no utf8;
s/^(?: )+//;
}
print;
}'
- 99 名前：デフォルトの名無しさん mailto:sage [2012/11/16(金) 00:37:30.32 ]
- どうもです。
状況なのですが、use utf8すると全くおかしいです。/\d+月… /のマッチが全く成功しないので、
目的通りの結果が出ません。uset utf8しないとうまく動きます。
実はMacのautomatorから呼び出されていてGet text from Webpage actionでとってきたテキストが
このperlに渡されているのですが…UTF-8の文字が来ているはずなのですが（指定のWebページのcharsetはUTF8）。
それはさておき
( ) / (?: )
の指摘ありがとうございました。上の行のs/^\s+//;と合わせて
s/^(?:\h| |\xc2\xa0)+//;
に書き換えました。
non breakable spaceも行頭に混じっていたので、そのUTF8表現のU+c2a0も追加。
これできれいに行頭の「空白」がとれて左詰めになりました。
とりあえずuse utf8;だけ殺して一見うまく動いているのでそれで利用を開始しました。
個人の趣味の自動化目的なのでそんな感じでまずはゴーしてしまいます。
- 100 名前：デフォルトの名無しさん mailto:sage [2012/11/16(金) 00:44:04.42 ]
- utf8プラグマは作ったひとは使うのが簡単だと考えているんだろうけど、
使うひとにとっては非常に難しい。こういった処理モデルを理解しろと
いうほうに無理がある。結論としてはutf8プラグマは使わないほうが
よい。
- 101 名前：デフォルトの名無しさん mailto:sage [2012/11/16(金) 14:34:35.11 ]
- もう省略の美学とか無くていいから（涙）
ぜんぜん意味がわからない
たすけて
- 102 名前：デフォルトの名無しさん mailto:sage [2012/11/16(金) 21:20:57.16 ]
- utf8にはまるのは日本固有らしい。海外では当初から見切りをつけていて
使われることはない。
- 103 名前：デフォルトの名無しさん mailto:sage [2012/11/17(土) 00:49:53.31 ]
- この方法で重複を削除した場合
リストの順番は変更されますか。
それとも、重複が削除されるだけで、
順番はそのままですか。
my %hash = ();
foreach (@list) {
$hash{$_}++;
}
my @unique = keys %hash;
print @unique;
ご教示ください。
- 104 名前：デフォルトの名無しさん mailto:sage [2012/11/17(土) 01:33:36.49 ]
- The keys of a hash are returned in an apparently random order.
ハッシュのキーはランダムな順番で返されます(適当訳)
perldoc.perl.org/functions/keys.html
- 105 名前：デフォルトの名無しさん mailto:sage [2012/11/17(土) 01:55:32.07 ]
- ｹﾞｰｯ
ありがとうございました・・・
- 106 名前：デフォルトの名無しさん mailto:sage [2012/11/17(土) 17:04:11.19 ]
- フリーソフトの利用は自己責任。
utf8作ったひとが助けてくれるわけじゃない。
自分の理解できる範囲内で使えってこった。
- 107 名前：デフォルトの名無しさん mailto:sage [2013/01/03(木) 08:49:11.83 ]
- 文字コードとしてのUTF-8を理解してもutf8プラグマの挙動は別物
オレオレ実装むき出しの仕様で理解できず使いづらい
そこで省略の美学になる
- 108 名前：デフォルトの名無しさん mailto:sage [2013/01/03(木) 09:02:50.69 ]
- 至らない実装は利用者が補えるが、オレオレ仕様は直せない、か
- 109 名前：デフォルトの名無しさん mailto:sage [2013/01/05(土) 20:10:35.16 ]
- ２chのソースコード読みたい
どっかに落ちてないかな？
- 110 名前：デフォルトの名無しさん mailto:sage [2013/01/06(日) 06:16:44.13 ]
- クレクレ厨か糞がキメェんだよ
- 111 名前：デフォルトの名無しさん mailto:sage [2013/01/07(月) 23:54:06.18 ]
- KENT本の中に似た外見のBBSってなかったっけ？
- 112 名前：デフォルトの名無しさん mailto:sage [2013/01/08(火) 01:05:42.37 ]
- 「？」じゃねーだろ確認して書き込めやゴミが
- 113 名前：デフォルトの名無しさん mailto:sage [2013/01/08(火) 01:51:30.58 ]
- >>112
おまえ、うるさい！！
- 114 名前：デフォルトの名無しさん mailto:sage [2013/01/08(火) 05:40:51.47 ]
- >>112
糞スレ乱立してた基地害が立てたスレの一つで何言ってんの？
ここは落書き帳だよ？
- 115 名前：デフォルトの名無しさん mailto:sage [2013/01/09(水) 00:11:00.04 ]
- www.kent-web.com/bbs/
「2ch風」のマルチスレッド式掲示板です。トリップ機能、age/sage機能、
ID表示機能などが可能です。また表示部分をテンプレートファイルとし、
ユーザサイドでのレイアウト改造やデザイ改造が容易です。
- 116 名前：デフォルトの名無しさん [2013/01/09(水) 17:34:57.36 ]
- サイトの宣伝乙
- 117 名前：デフォルトの名無しさん mailto:sage [2013/01/10(木) 16:07:28.37 ]
- >>115
宣伝ウザい
- 118 名前：デフォルトの名無しさん mailto:sage [2013/01/11(金) 05:12:28.86 ]
- >>115
こんなところに来てまでステマとかマジで気持ち悪いよお前
アタマおかしいんじゃねーの
- 119 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 01:08:29.34 ]
- >>109に回答するのが初心者スレのみっちょんだから
- 120 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 03:52:42.37 ]
- CGIの紹介はスレ違い
本当にここには基地害しか残ってないんだな
- 121 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 10:20:36.14 ]
- >>120
残って？
スレ間違えてますよ
- 122 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 17:34:17.42 ]
- >>120
お前、CGI知らないのか？
Common Gateway Interface（コモン・ゲートウェイ・インタフェース、
CGI）は、ウェブサーバ上でユーザプログラムを動作させるための仕組み。
件の掲示板を実現しているプログラムはPerlスクリプトだぞ？
CGIとPerlスクリプトの違いも分からないのか？
- 123 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 19:33:15.48 ]
- >>122の言ってることは分かるがなぜここでそれを言うのか分からない。
- 124 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 19:43:06.23 ]
- ここはゴミの隔離スレだからね
- 125 名前：デフォルトの名無しさん mailto:sage [2013/01/12(土) 21:38:40.14 ]
- >>123
落書き帳と同じだから必ずしも会話が成立してる必要はないんだよ
発作的に書きたくなった内容を書き殴ればいい
このスレにいるのは心を病んでる奴がほとんどだからまともに相手してるとこっちまで病むぞ
- 126 名前：デフォルトの名無しさん mailto:sage [2013/01/13(日) 23:14:20.80 ]
- >>120
ばかだな、お前以外におれがいることを忘れているぞ
|
 |
