Question

In awk I can write: awk -F: 'BEGIN {OFS = FS} ...'

In Perl, what’s the equivalent of FS? I’d like to write

perl -F: -lane 'BEGIN {$, = [what?]} ...'

---

update with an example:

echo a:b:c:d | awk -F: 'BEGIN {OFS = FS} {$2 = 42; print}'
echo a:b:c:d | perl -F: -ane 'BEGIN {$, = ":"} $F[1] = 42; print @F'

Both output a:42:c:d

I would prefer not to hard-code the : in the Perl BEGIN block, but refer to wherever the -F option saves its argument.

Answer 1

To sum up, what I’m looking for does not exist:

1. there’s no variable that holds the argument for -F, and more importantly
2. Perl’s "FS" is fundamentally a different data type (regular expression) than the "OFS" (string) — it does not make sense to join a list of strings using a regex.

Note that the same holds true in awk: FS is a string but acts as regex:

echo a:b,c:d | awk -F'[:,]' 'BEGIN {OFS=FS} {$2=42; print}'

outputs "a[:,]42[:,]c[:,]d"

Thanks for the insight and workarounds though.

---

You can use perl’s -s (similar to awk’s -v) to pass a "FS" variable, but the split becomes manual:

echo a:b:c:d | perl -sne '
    BEGIN {$, = $FS}
    @F = split $FS;
    $F[1] = 42;
    print @F;
' -- -FS=":"