Help in parsing the CSV file

[mihirk]

I have a CSV file which contains number series as one of the fields. Some of the records of the field look like :

079661/3

I have to convert the above series as
079661
079662
079663
and store it as 3 different records.

Looking for help on how to achieve this. Am a newbie at Shell scripting.

Thanking all in advance for the help..

Mihir

[arne]

I have a CSV file which contains number series as one of the fields. Some of the records of the field look like :

079661/3

I have to convert the above series as
079661
079662
079663
and store it as 3 different records.

Looking for help on how to achieve this. Am a newbie at Shell scripting.

Thanking all in advance for the help..

Mihir

What does the syntax x/y mean?

- the (y-1) next higher numbers, e.g.
123,4
123
124
125
126

- the next numbers until the numbers end with the same digit
123,4
123
124

- can y have multiple digits, like

123,30
123
124
125
...
129
130
?

You'll have to describe the problem a little bitmore detailed in order to get accurate solutions, I guess.

And: this must be written in bash or can you use other tools like perl?

arne

[mihirk]

Hi arne,

Following is the clarification sought by you:-

x/y means:

the next numbers until the numbers end with the same digit
123,4
123
124

Also there will not be multiple digits. Even perl can be used.

Thanks,
Mihir

[arne]

Hi arne,

Following is the clarification sought by you:-

x/y means:

the next numbers until the numbers end with the same digit
123,4
123
124

Also there will not be multiple digits. Even perl can be used.

Thanks,
Mihir

This should do more or less what you want:

#!/usr/bin/perl
 
if (2 != ($#ARGV+1)) {
 
    print "Usage: $0 <infile> <outfile>\n";
    exit 1;
}
 
open INFILE,  "<$ARGV[0]" || die "unable to open INFILE";
open OUTFILE, ">$ARGV[1]" || die "unable to open OUTFILE";
 
while (<INFILE>) {
 
    if (/(.*)(\d)\/(\d)/) {
 
    my $stub  = $1;
    my $start = $2;
    my $end   = $3;
 
    for $i ($start..$end) {
 
        print OUTFILE "$stub$i\n";
    }
 
    } else {
 
      print OUTFILE "$_";
    }
}
 
close INFILE;
close OUTFILE;
 

HTH,
arne

[mihirk]

Thanks a lot...the script does more or less what I want....

But am a newbie to perl...Can you please explain what

(/(.*)(\d)\/(\d)/ does and how are you seperating the string into 3 variables by using the regular expression??

Thanks again..
Mihir

[arne]

Thanks a lot...the script does more or less what I want....

But am a newbie to perl...Can you please explain what

(/(.*)(\d)\/(\d)/ does and how are you seperating the string into 3 variables by using the regular expression??

Thanks again..
Mihir

The regex is enclosed by forward slashes, '.' is an arbitrary symbol, '*' means an arbitrary number, so we have an arbitrary number of arbitrary symbols in the first pair of brackets. \d is a digit, the \ is an escape character for the /, which is taken as a symbol (and not the end of the regex!), then we have another digit. The brackets group the single elements and can be referred to by $n, where n denotes the number of the bracket pair. So, if a line contains 2 digits separated by a / and preceeded by something else, we expand it.

HTH,
arne