AS
Size: a a a
AS
TK
VK
$ cat test.txt
a
b
c
$ perl -MTie::File -MDDP -E 'tie @file_as_array, "Tie::File", "test.txt" or die $!; unshift @file_as_array, "test"; untie @file_as_array;'
$ cat test.txt
test
a
b
c
D
$ cat test.txt
a
b
c
$ perl -MTie::File -MDDP -E 'tie @file_as_array, "Tie::File", "test.txt" or die $!; unshift @file_as_array, "test"; untie @file_as_array;'
$ cat test.txt
test
a
b
c
D
$ cat test.txt
a
b
c
$ perl -MTie::File -MDDP -E 'tie @file_as_array, "Tie::File", "test.txt" or die $!; unshift @file_as_array, "test"; untie @file_as_array;'
$ cat test.txt
test
a
b
c
export STR1="THesuper"; cat tmp | ruby -ne 'x=true; if x; print ENV["STR1"]+"\n"+$_; x=false; else; print $_; end' > tmp
KG
TK
TK
TK
TK