Search Results

I think this does what you want:
awk '
function check( cn, i, j, ln) {
# local variables:
# cn sequence column number within line
# i loop control
...

I think this will do what you are wanting:


awk '
$1 == "ID" {
if( fname )
close( fname );
fname = $2 ".txt";
}
{ print >fname; }
' input-file


...

The following prints the next line if the pattern is matched, however your spec is more than a little bit vague...

#!/usr/bin/perl

use strict;
use warnings;
while(<DATA>){
if...