Dotaz: PERL oneliner v shell skriptu-predani parametrů

[Terka]

spoustim skript s parametry:
./skript.sh 222 33 '44 44' 55

skript obsahuje:
cat soubor|perl -e ' while (<>){if (/'$4'/../'$5'/){print;}}'


protoze $4 obsahuje mezeru, skript mi nebezi korektne; za $4 se dosadi:
cat soubor|perl -e ' while (<>){if (/44' '44/../55/){print;}}'

jak mam upravit predchozi radek, aby mi tam doplnil:
cat soubor|perl -e ' while (<>){if (/44 44/../55/){print;}}'

Odpovědi

[David Watzke]

${4//\'}

[Terka]

diky, ale proc zrovna tohle ?

[David Watzke]

Funguje to? // znamená nahrazení všech výskytů a jelikož tam už není další /, nahradí se řetězec za tím (escapovaný ') za nic. Příklad:

echo ${PATH//:/ ... }

[Terka]

ne, nefunguje

[David Watzke]

To protože sem špatně pochopil dotaz, místo apostrofů použij uvozovky.

perl -e "while (<>){if (/$4/../$5/){print;}}" soubor

V uvozovkách probíhá substituce...

[Terka]

diky!

[Anatheman]

mozna bych jen doplnil, ze ta smycka while se da nahradit -n. Viz. perlrun(1)

perl -nle "(/$4/../$5/) && print;" soubor

[pht]

pokud mozno nezbavoval bych se tech apostrofu.

cat soubor|perl -e ' while (<>){if (/'"$4"'/../'"$5"'/){print;}}'

[Michal Marek (twofish)]

Jedna možnost je ty parametry předat jako proměnné prostředí a v perlu k nim přistupovat přes %ENV:

param1="$4" param2="$5" perl -e '... $ENV{"param1}  $ENV{"param2"} '

[Hynek (Pichi) Vychodil]

cat soubor|perl -e ' while (<>){if (/$ARGV[1]/o .. /$ARGV[2]/o){print;}}' "$4" "$5"

[Hynek (Pichi) Vychodil]

teda ještě lépe jak už tu někdo napsal

perl -ne '/$ARGV[1]/o .. /$ARGV[2]/o and print' "$4" "$5" < soubor