foreach $col (sort keys %{$table{$row}}) {
を
foreach $col (qw/id count name/) {
とかでは? keyの名前も順番も分かってるんだし。
Perl初心者スレ（マジレス回答）
foreach $col (sort keys %{$table{$row}}) {
を
foreach $col (qw/id count name/) {
とかでは? keyの名前も順番も分かってるんだし。
<> は <STDIN> の単なる略ではなく
@ARGV が捕れない副作用があった
そこに詰まっていた
#!/usr/bin/env perl
use 5.010;
if (-p STDIN) {
print "May be pipe is used. I've got STDIN as below\n";
# my @lines = <STDIN>; # when <> used, perl think no @ARGV
map {state $i; ++$i;print "$i $_" } <STDIN>;
}
else {
print "This may be just single running.\n";
}
map {state $i; ++$i; print "$i argment found ==> $_\n"} @ARGV;
<.*?>ではなく<("[^"]*"|'[^']*'|[^'">])*>を使いたいのですが
perl -pe '<("[^"]*"|'[^']*'|[^'">])*>'
にする場合どれどれをエスケープすればよいでしょうか？
’だけだと動きませんでした。
perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'
てか、それエラーにならないの？
perl -pe 's/<("[^"]*"|'[^']*'|[^'">])*>//g'
です
perl -pe 's/<.*?>//g'は動くんですけど
perl -pe '<("[^"]*"|\'[^\']*\'|[^'">])*>'だと動かないんですよね
perl -pe 's/<("[^"]*"|\'[^\']*\'|[^'">])*>//g'
perl -pe 's/<("[^"]*"|'"'"'[^'"'"']*'"'"'|[^'"'"'">])*>//g'
perlというよりシェルのシングルクォートの問題
できました！、ありがとうございます。
'を'""'で括るのですね
なんで\でエスケープにならないんでしょうね
<p>hoge</p><p>hoge</p>
pタグが一行に2つあると誤作動したりするんですよね
HTML::Parser でそんなことは起こらないから安心してほしい。
たとえばテキスト部分だけを出力したいならこんな感じでできる。
my $parser = HTML::Parser->new(
text_h => [sub { print( $_[0]) },'text'],
);
$parser->parse_file( \*STDIN);
参考になります。
パーサーもいろいろ種類あるみたいですね。
自分の使ってたのはhtml-xml-utilsというやつでした。
ありがとうございました
俺が遅くなりまして申し訳ありません
一つの空白に変えたいのですが
うまくいきません。
if($line=~/\s\s+/){
$line=~s/\s\s+/\s/g
print("$line\n")
}
では？
でうまくいったよ。
そうか、\sって正規表現だから、置換文字列に使うと「perl にそんな定義ないで！」ってなるのか。
これは俺も気を付けよう。
\u3042 → \N{U+3042}
に置換しようとしたけど、できなかった。
\N{U+ }←ここにはリテラルしか書けないのかな。
hoge() or die("Error\n");
ってなってた（hoge()の戻り値が魏ならエラー）のを標準出力したくて
my $a = hoge();
if( ! $a ){ print("Error\n"); exit $!; }
みたいにしたんだけど、if文の書き方ってこんなんで良いの？
0を返しても、0といｂ､文字(アスキーコード0x30)として扱われたりするから、俺は
if(scalar($a)) {
とか
if($a eq 0) {
とかするよ。
良い。
! で条件反転させるんだったら unless 使っても良いと思うけどね。
unless ($a) { ... } みたいに。
Perlをそういう流儀でやってるといつか痛い目にあうよ。
マジか。
my $a = hoge();
において、左辺が 0、右辺が 0x30 になるのは、言語としてぶっ壊れているんじゃね?
0 but true
なんていう値もあるし
じゃあどうすればいいの？
hoge() or die("Error\n");
が問題なく動いてるなら
hoge() or print("Error\n"), die $!;
＞元の
＞hoge() or die("Error\n");
＞が問題なく動いてるなら
という前提の下で >>495 の配慮に意味があるの? >>496 で十分
hoge() or が動くという前提を無視するとして
もしもhoge()が0を含む数値か失敗を返すなら（空文字を含む文字列か失敗でもいい）
失敗にundefを返してdefinedで受けるのがフツー
perlが発祥ってわけでもないそうだが(bashとかにもあるんだってね)、ガチのドザなので
俺は内心ドルバーって呼んでる
設定によってはチルダの代わりにトップバーってのがあったから、それと区別するのにアンダーって言ってた気がする。
そういやそんなの(トップバー)あったねえ なるほど
32ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_5382_32bit
64ビット
https://github.com/StrawberryPerl/Perl-Dist-Strawberry/releases/tag/SP_53822_64bit
perlと関係なかったらすみません…
$str='あ';
if ($str =~ /^[あいう]$/) {print("match\n");}
を実行してみるとマッチしてくれません
/^(あ|い|う)$/ ならマッチするのですが
古いPerl4のjperlなら /^[あいう]$/ でもマッチします
やはりこれはStrawberryPerlのバグ(または仕様)なのでしょうか
レスどうもです
Shift-JISの環境で正しく2とカウントされてます
前記はあくまで例ですので全角文字なら他の文字でもこうなるみたいで
ひらがなにマッチさせたいわけではないんです
use encoding 'sjis'
ならsjisでコード書けたと思う
jperlﾅﾂｶｼｽ
スクリプトは utf-8 で書いて use utf8 してたけど
コマンドラインでは -MFilter::Encoding=cp932 とか
レスを投稿する
ニュース
- コロナワクチン接種後死亡 遺族ら13人が国を集団提訴 約9150万円の賠償を求める「マイナス情報を広報せず、被害を広げた」 ★4 [Hitzeschleier★]
- 無事発見された1000万円黄金茶碗 保管している警視庁困惑「どこへ返せばいいかわからない」「三つ巴の争いが始まるかも」 [おっさん友の会★]
- 【Googleマップ】「グーグルが悪評を放置」医師ら６０人が提訴へ…地図上の口コミ、「営業権の侵害」 [ぐれ★]
- 「1人もお客さんが来ませんでした」アイドルの告白に反響 観客0のステージで歌う姿に「プロ過ぎ」「胸にくる」 [尺アジ★]
- 【日本政府】アニメ、ゲーム「日本のコンテンツ海外売上は鉄鋼、半導体に匹敵」内閣がエンタメ産業活性化を議論★2 [Hitzeschleier★]
- 産休クッキー論争に益若つばさ「ポジティブ発信歓迎されない社会悲しい」柴田阿弥アナ「倫理的に問題がないことを咎める社会は厳しい」 [muffin★]
- 【実況】博衣こよりのえちえちCities:Skylines2🧪★1
- 【実況】博衣こよりのえちえちCities:Skylines2🧪★2
- 【画像】つけめんの欠点
- アメリカZ世代「資本主義ってゴミじゃね？」Z世代の嫌儲化が深刻WXWXWXWXWXWXXWXW [389296376]
- 【悲報】ジャニオタ、ジャニーズライブの最前列で席交換したのバレる！スタッフの尋問を無視し開演を45分遅れさせ逮捕 [389296376]
- 【画像】初対面から女子に不快感を与えて、何もしてないのに嫌われる顔面偏差値４０以下の弱男がコチラwww [779857986]