### 前提 Perlのスクリプトで、指定した行数の行を削除したいです。 ### 実現したいこと $TEST に以下の値があるとして ```ここに言語を入力 # echo $TEST aaa bbb ccc ddd eee fff ``` 3行目と5行目（cccとeee）を削除したいです。 ```ここに言語を入力 # echo $TEST aaa bbb ddd fff ``` スクリプトで変数内の指定行を削除するにはどのようにすればよろしいでしょうか？ご教授願います。

Smart match を使いたいところですが、怒られるので以下の様にします。 ```bash #!/bin/bash TEST=$(cat <<EOT aaa bbb ccc ddd eee fff EOT ) TEST=$(echo "$TEST" | perl -nle 'print if $. != 3 and $. != 5') #TEST=$(echo "$TEST" | perl -nle 'print unless $. ~~ [3, 5]') echo "$TEST" ```

［Perl］指定行の削除

前提

Perlのスクリプトで、指定した行数の行を削除したいです。

実現したいこと

$TEST に以下の値があるとして

# echo $TEST
aaa
bbb
ccc
ddd
eee
fff

3行目と5行目（cccとeee）を削除したいです。

# echo $TEST
aaa
bbb
ddd
fff

スクリプトで変数内の指定行を削除するには
どのようにすればよろしいでしょうか？
ご教授願います。

行動規範の内容に同意します

回答1件

ベストアンサー

Smart match を使いたいところですが、怒られるので以下の様にします。

bash
1#!/bin/bash
2
3TEST=$(cat <<EOT
4aaa
5bbb
6ccc
7ddd
8eee
9fff
10EOT
11)
12
13TEST=$(echo "$TEST" | perl -nle 'print if $. != 3 and $. != 5')
14#TEST=$(echo "$TEST" | perl -nle 'print unless $. ~~ [3, 5]')
15
16echo "$TEST"