Dotaz: Pridání řádku do souborů za konkrátní řádek

[Thomash]

Ahoj, lámu si hlavu s následujícím. Potřebuju prohledat asi 1000 souborů zda-li neobsahují nějaký řádek a pokud jej obsahují tak za tento přidat nový řádek. Nevíte někdo jak na to? Nějak se mi to nedaří.

Odpovědi

[Milan Roubal]

#!/bin/bash
LIST=`ls -1`
for i in $LIST; do
  echo $i
  sed -e "s/radek_search/radek_search\nradek_new/" -f $i > $i_new
  mv $i_new $i
done

hruby nastrel principu, netestovano

[Jendа]

sed má parametr -i (inplace).

[juriad]

ed soubor <<END
/hledany radek/a
pridany radek
.
w
q
END

a podle návratové hodnoty poznáš, zda byla změna provedena

[Thomash]

Tak nakonec poreseno nasledovne:

sed -i '/text hledaneho radku/ a\

\ttext noveho radku ktery bude pridan pod nalezeny radek' *

Otestovano, funguje.

[eth4rendil]

awk '1;/druhy/ {print "\n"}' /adresar_kde_su_subory/*

[Brilantní modř]

Tohle jsem vytvořil v Perlu:

#!/usr/bin/perl
use strict;
use warnings;
my @list_of_files = (
    "path/to/file-0",
    "path/to/file-1",
    "path/to/file-2"
); ## Seznam souborů.
foreach (@list_of_files) {
    my $fh; # filehandler
    my @lines;
    my $my_line = "obsah řádku"; ## Řádek, který má soubor obsahovat.
    open($fh, "<", $_) or die("$!\n");
    @lines = <$fh>;
    close($fh) or die("$!\n");
    open($fh, ">", $_) or die("$!\n");
    foreach my $line (@lines) {
        if ($line =~ /^$my_line$/) {
            $line .= "\n";
        }
        print($fh $line);
    }
    close($fh) or die("$!\n");
}

(Jsem začátečník, takže budu vděčný za jakékoliv připomínky nebo reakce.)