Perl - kopie části řetězce na jiné místo

[Milan Kerslager]

On Mon, Feb 03, 2003 at 11:23:33AM +0100, jiri.rambousek na veba.cz wrote:
> Dobrý den,
> jelikož moc neskriptuji, dovoluji si poprosit o radu, jak co nejsnadněji
> vytvořit perlový skript, který načte řádek textového souboru, uloží do
> proměnné např. 7. až 12. znak a tuto proměnnou vloží na ten samý řádek tak
> , aby poslední znak proměnné byl např na pozici 100. znaku.

perl -in -e 'printf "%100s\n",substr($_,6,6)' soubor.txt

Pokud nechcete ten soubor modifikovat, pak vynechte parametr 'i'

> Za každou radu předem velice děkuji a omlouvám se těm, kteří budou tento
> dotaz považovat za off-topic.

-- 
                        Milan Kerslager
                        E-mail: milan.kerslager na pslib.cz
                        WWW:    http://www.pslib.cz/~kerslage/