Perl:.? Agregar el carácter para comenzar de una línea

Question

Quiero añadir un "carácter al comenzar de cada línea en un archivo de texto ¿Hay alguna solución sencilla

Answer 1

perl -p -e 's/^/"/' myfile debe hacerlo

$ cat myfile 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
$ perl -p -e 's/^/"/' myfile 
"0 
"1 
"2 
"3 
"4 
"5 
"6 
"7 
"8 
"9 
"10 

!

Answer 2

yo consideraría una de estas formas: archivo

perl -pi.bak -e 's/^/"/' inputfile.txt 

Editar en su lugar, guarda una copia de seguridad en "inputfile.txt.bak"

. 210

perl -pe 's/^/"/' inputfile.txt > outputfile.txt 

Use la redirección de shell para imprimir la salida en un nuevo archivo.

Answer 3

Otro par de sugerencias:

sólo en el shell:

tmp=$(mktemp) 
while read -r line; do printf '"%s\n' "$line"; done <filename> "$tmp" && 
mv "$tmp" filename 

ed:

ed describes.sql.bak <<'END' 
1,$s/^/"/ 
w 
q 
END