1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
$ echo '
> 101,"Cinta de Moebio","","0717-554X"," ","2","1997",10100208
> 101,"Cinta de Moebio","","0717-554X"," ","1","1997",10100101
> 101,"Cinta de Moebio","","0717-554X"," ","1","1997",10100102
> 101,"Cinta de Moebio","","0717-554X"," ","1","1997",10100103
> 101,"Cinta de Moebio","","0717-554X"," ","1","1997",10100104
> 101,"Cinta de Moebio","","0717-554X"," ","2","1997",10100210
> 102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202504
> 102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202505
> 102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202506
> 102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202507
> 102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202508
> 105,"Convergencia. Revista de Ciencias Sociales","1405-1435","2448-5799","11","36","2004",10503605
> ' | perl -we '
> my $previous_line = ""; my $prev_id = "";
> while (<>) {
> next unless /\w/; # skipping empty lines
> $id = $1 if /^(\d{3})/;
> print $previous_line, $_ if $id ne $prev_id;
> $previous_line = $_; $prev_id = $id;}
> '
101,"Cinta de Moebio","","0717-554X"," ","2","1997",10100208
101,"Cinta de Moebio","","0717-554X"," ","2","1997",10100210
102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202504
102,"Región y Sociedad","1870-3925","2448-4849","XIV","25","2002",10202508
105,"Convergencia. Revista de Ciencias Sociales","1405-1435","2448-5799","11","36","2004",10503605 |
Partager