正規表現

関西弁に反応する？正規表現
# 暇な人、できたら修正してやって下さい
# chaika 等で利用する目的の為、JavaScript の正規表現です
# spawned at 2ch.net/unix/正規表現
# http://peace.2ch.net/test/read.cgi/unix/1039165754/900
# news4vip/1395152022/ を参考にしました

# Rev.001
(?:
　[^い]や|
　や(?:[でわろ]|ねん|んか|んけ|けど|ない|んけ)|
　るで|とるわ|[わが]な
)ｗ*[、。？！\s]|
アホ|あほ|ホンマ|ほんま|アカン|あかん|ええで|なんでなん|
ええ(?:やろ|やん|な|わ)|
ちゃう(?:か|やん)|
でき(:?ん|ひん)|
(?:しとる|ない|よる)ねん|
(?:変わ|分か?)らん|
言うたかて

901 ：名無しさん＠お腹いっぱい。：2014/10/16(木) 20:19:07.96

世紀表現とワイルドガードの違いを一言でゆうと何になりますか？

902 ：名無しさん＠お腹いっぱい。：2014/10/16(木) 22:11:18.07

>>901
聖飢魔II

903 ：名無しさん＠お腹いっぱい。：2014/10/17(金) 05:10:53.04

双生児

904 ：名無しさん＠お腹いっぱい。：2014/12/07(日) 09:12:49.01

ネタない？

905 ：名無しさん＠お腹いっぱい。：2015/01/16(金) 17:48:43.41

|tac|sed -n '/./,/.\n/p'|tac|sed -n '/./,/.\n/p'
これは標準入力の中の上下の無駄な改行を全て削除します
perlの正規表現でやるならどう書けばよろしいでしょうか?

906 ：名無しさん＠お腹いっぱい。：2015/01/16(金) 18:15:48.11

ム板で聞いた方がいいんじゃね

907 ：名無しさん＠お腹いっぱい。：2015/01/16(金) 23:09:51.63

>>905
(・∀・)ｱｯﾃﾙｶﾅ？
(・∀・)もっと別の書き方も見てみたい

perl -0777 -pe 's/\A\n+//s; s/\n+\Z/\n/s'

908 ：名無しさん＠お腹いっぱい。：2015/01/17(土) 07:12:32.01

(・∀・) $ ﾃﾞﾅｸ /.\n/ ﾃﾞｱﾙ理由ｶﾞﾜｶﾗﾅｲｹﾄﾞ､ｺｳ解釈ｼﾃ､ｶｲﾃﾐﾀ
（標準入力の）複数行テキストの始まりと終わりの連続した改行を、削除する

(・∀・) Unix板ｺｿ正規表現ﾆﾌｻﾜｼｲﾄ思ｯﾃｲﾏｽ
sed -e '1{:a;/^\n*$/{N;ba;};s/\n*//;};:b;/^\n*$/{${/^\n*$/d;};N;bb;}'

(・∀・) ｵ!自分ﾃﾞﾓ使ｲｿｳﾅﾉﾃﾞ､ﾎｿﾞﾝｼﾄｺｳ
sed -e '
　　1 {
　　　　:loop1;
　　　　/^\n*$/ {
　　　　　　N;
　　　　　　b loop1;
　　　　};
　　　　s/\n*//;
　　};
　　
　　:loop2;
　　/^\n*$/ {
　　　　$ {
　　　　　　/^\n*$/ d;
　　　　};
　　　　N;
　　　　b loop2;
　　}
'

(；・∀・) 間違ｯﾃﾀﾗ､ｵｼｴﾃｸﾚ

909 ：名無しさん＠お腹いっぱい。：2015/01/17(土) 09:20:21.90

(・∀・) この部分が $ d; だと何故か動かなかったので
(・∀・) あえて /^\n*$/ を入れてたけど、動くみたいなので訂正
$ {
　　/^\n*$/ d;
};

@@ -10,9 +10,7 @@

　　:loop2;
　　/^\n*$/ {
-　　　$ {
-　　　　/^\n*$/ d;
-　　　};
+　　　$ d;
　　　N;
　　　b loop2;
　　}

(・∀・) url抜ｷﾃﾞ､ﾌﾞﾛｸﾞﾆ貼ﾗﾅｲﾃﾞﾈ

910 ：名無しさん＠お腹いっぱい。：2015/01/17(土) 15:54:44.86

perlって面倒くさいんだね。Nコマンドで最終行が無くなったりしないの？
sedだったら、行頭と行末の間に何もない行は削除、という感じで
/^$/d
これだけなんだけど。

911 ：名無しさん＠お腹いっぱい。：2015/01/17(土) 19:19:41.25

(・∀・) 元々ﾉｵ題ﾊｺﾚ(先頭ﾉﾊﾟｲﾌﾟﾊ除ｲﾀ)
tac|sed -n '/./,/.\n/p'|tac|sed -n '/./,/.\n/p'

(・∀・) 合ｯﾃﾙｶﾄﾞｳｶ分ｶﾗﾅｲｹﾄﾞ､
(・∀・) tac ﾃﾞﾋｯｸﾘ返ｼﾀﾘｽﾙﾉｦ止ﾒ sed 一発ｶﾞ､ｺﾚ(修正前)
sed -e '1{:a;/^\n*$/{N;ba;};s/\n*//;};:b;/^\n*$/{${/^\n*$/d;};N;bb;}'

(・∀・) perl ﾀﾞﾄｺﾚ
perl -0777 -pe 's/\A\n+//s; s/\n+\Z/\n/s'

(´・ω・`) >>910 空行削除ﾉ話?
sed -e '/^$/d'

912 ：名無しさん＠お腹いっぱい。：2015/01/18(日) 02:13:00.56

あ、ごめん、「無駄な改行」を「空白行」だと思い込んじゃったわ。
「無駄な改行」をスクリプトが判断してくれるの？
あ、いやいや、わかんないことに首つっこむのは止めるわ。ごめんね。

913 ：名無しさん＠お腹いっぱい。：2015/01/18(日) 07:11:53.40

(・∀・) >>912 ｲｴｲｴ｡ｱﾘｶﾞﾁﾅ事
(・∀・) 所ﾃﾞ､書ｲﾃﾊｲﾅｶｯﾀｹﾄﾞ､一気ﾆ読ﾐ込ﾑﾅﾗ､perl 同様ﾅ書ｷ方ﾓ出来ﾙ

sed -e '
　　:loop;
　　　　$! {
　　　　　　N;
　　　　　　b loop;
　　　　};
　　s/^\n*//;
　　s/\n*$//;
'

914 ：名無しさん＠お腹いっぱい。：2015/01/18(日) 21:21:15.59

Thanks to (・∀・)
ありがとうが何日間か送れなくて申し訳なかったです

915 ：名無しさん＠お腹いっぱい。：2015/01/19(月) 12:37:39.32

while (<>) {
$myline .= $_;
}
$myline =~ s/\A\n+//mx;
$myline =~ s/\n+\Z//mx;
print $myline;

perlはよく分からないけど
\A と \Z で最初と最後にアンカーおろして
\n+で指定すれば簡単か

916 ：名無しさん＠お腹いっぱい。：2015/01/30(金) 07:35:17.36

>>915
\Zじゃなくて\zかな。\Aはあってる。

917 ：名無しさん＠お腹いっぱい。：2015/01/30(金) 10:29:28.40

無条件で、テキストの終わりの連続した改行を取り除けば良いという訳では無く

text\n
text\n
\n
\n
\n

とあれば、最後の3つの \n を取り除いて出力するのが、望ましい動作

一方で行末に\nが無いものに改行を付けてしまうのも、望ましくない
...と思う

text\n
text

918 ：名無しさん＠お腹いっぱい。：2015/01/30(金) 12:13:26.39

>>917
s/\n+$/\n/