Shell Programming and Scripting

   
   id
   Spec
   524543
   Developed especially for seniors
   Spec
   No
   Java
   Spec
   Yes
   Java MIDP
   Spec
   Available using application
   Operating system
   Spec
   Android 2.3 (Gingerbread)
   Qwerty keyboard (buttons)
   Spec
   No
   Qwerty keyboard (screen)
   Spec
   Yes
   SAR
   Spec
    0.34 W/kg
   Stand by time
   Spec
    710 h
   Talk time
   Spec
    18.2 h
   Talk time (3G)
   Spec
    8.4 h
   Stand By-Time (3G)
   Spec
    610 h
   Audio features
   Built-in speakers
   Spec
   Mono
   Camera
   Built-in camera
   Spec
   Yes
   Auto focus
   Spec
   Yes
   Built-in flash
   Spec
   Yes
   Flash type
   Spec
   LED-flash

2 
5 
8 
11
14
17
20
23
26
29
32
35
39
43
46
49
52

INSERT INTO `specifications` VALUES (524543,'No','Yes','Available using application','Android 2.3 (Gingerbread)',...);

#!/usr/bin/perl

use strict;
use warnings;

open (my $data, "<", $ARGV[0]); #Supply the spec file as the argument
my $after_spec=0;
my @values;
while(<$data>){
   chomp;
   if ($after_spec){
      push @values $_;
      $after_spec--;
   }
   elsif (/^Spec$/){
      $after_spec++;
   }
}
for (@values){ #add quotes to non numerical values and escape single quotes
   s/'/\\'/g;
   if (! /\d+(\.\d+)/){
       $_="'".$_."'";
   }
}
$values_string=join(', ',@values);
print "INSERT INTO `specifications` VALUES ($values);"

$ data2.sh
/usr/bin/data2.sh: line 2: use: command not found
/usr/bin/data2.sh: line 2: $'\r': command not found
/usr/bin/data2.sh: line 3: use: command not found
/usr/bin/data2.sh: line 3: $'\r': command not found
/usr/bin/data2.sh: line 4: syntax error near unexpected token `my'
/usr/bin/data2.sh: line 4: `open (my $data, "<", $temp1.dat[0]); #Supply the spec
' file as the argument

open (my $data, "<", $temp1.dat[0]);

./datas2.pl PATH_TO_ORIGINAL_DATA_DUMP_FROM_LYNX

#!/usr/bin/perl

#These two pragmas catch typos for you.
use strict; 
use warnings;

open (my $data, "<", $ARGV[0]); #Supply the spec file as the argument
my $after_spec=0; #flag which is set if the line is a spec line.
my @values; # an array to hold all the lines that match
while(<$data>){ # loop through the file one line at a time
   chomp; #remove trailing newlines.
   if ($after_spec){ # if we set the flag on the previous line.
      push @values, $_; # add this string to the values array
      $after_spec--; # unset the flag.
   }
   elsif (/^Spec$/){ # if the line matches the pattern 
      $after_spec++; # set the flag
   }
}
for (@values){ #go through the values array cleaning up the data.
   s/^\s*(.+)\s*$/$1/;#remove leading and trailing spaces
   s/'/\\'/g; # escape single quotes
   if (! /^\d+(\.\d+)?$/){ # if this is not a number
       $_="'".$_."'"; # surround the value with quotes
   }
}
my $values_string=join(', ',@values); # create a value string 
print "INSERT INTO `specifications` VALUES ($values_string);\n" # print the result.

~/tmp$ ./tmp.pl tmp.dat 
INSERT INTO `specifications` VALUES (524543, 'No', 'Yes', 'Available using application', 'Android 2.3 (Gingerbread)', 'No', 'Yes', '0.34 W/kg', '710 h', '18.2 h', '8.4 h', '610 h', 'Mono', 'Yes', 'Yes', 'Yes', 'LED-flash');

$ data2.pl
bash: /usr/bin/data2.pl: /bin/per1^M: bad interpreter: Permission denied

INSERT INTO `specifications` VALUES ();

open (my $data, "<", "temp1.dat");

$ARGV[0]