comment Ajouter un enregistrement dans l'ordre alphabétique

Question

contient un fichier (a.txt)

# this is test file 

Data: 15th may 2010 

Records : 

a 

b 

c 

d 

g 

l 

simplement considérer si je veux ajouter un nouvel enregistrement « f » - je veux supp en d et g Situés entre

Answer 1

Vous pouvez utiliser Tie::File et traiter le fichier texte en tant que tableau. Cet exemple suppose qu'il n'y a pas de lignes vides sommes et texte initial:

use Tie::File; 
tie my @array, 'Tie::File', 'filename' or die $!; 

my $rec = 'f'; 

for my $i (0..$#array) { 
    if (($array[$i] cmp $rec) == 1) { 
     splice @array, $i, 0, $rec; 
     last 
    } 
} 

Answer 2

use Tie::File(); 
use List::MoreUtils qw(lastidx); 

my $new_item = 'f'; 
{ 
    my @file; 
    tie @file, 'Tie::File', 'a.txt' 
     or die "Could not open 'a.txt' for reading: $!"; 
    splice @file, (1 + lastidx { $_ lt $new_item } @file), 0, $new_item; 
} 

Answer 3

en une ligne:

perl -le 'print for(sort((map {chomp; $_} (<>)), "f"))' <infile> outfile 

Vous avez besoin évidemment de traiter les en-têtes à l'avance, mais la technique est assez claire

Par exemple:

[dsm@localhost:~]$ perl -le 'print for(sort((map {chomp; $_;} (<>)), "f"))' <<EOP 
> x 
> v 
> b 
> m 
> p 
> o 
> l 
> j 
> k 
> EOP 
b 
f 
j 
k 
l 
m 
o 
p 
v 
x 
[dsm@localhost:~]$