I did hardcode the name in the first version of the script... in two forms:
'file.txt' and '/home/path/to/myfile/file.txt'. Neither made any difference.
Thank you for assisting!
On Sun, Nov 7, 2010 at 8:12 PM, Parag Kalra <paragka...@gmail.com> wrote:
> Instead of taking the file as an input parameter, try to parse the file by
> hard coding its name in the script and let us know the outcome.
>
> Cheers,
> Parag
>
>
>
>
> On Sun, Nov 7, 2010 at 6:00 PM, J M <jmd...@gmail.com> wrote:
>
>> Hi all,
>>
>> I'm having great issues with my program at the moment... it is supposed to
>> take a csv file and parse it, with the output being stored in a MySQL
>> database. The problem I'm having is that the file I need to parse
>> ('ish_history.csv') will not open in the program for some reason. I know
>> the
>> file exists, I'm on a linux system and the file is world-readable, and
>> I've
>> tried placing the file in the directory the script is run from AS WELL as
>> using full path names to said file... all has resulted in no luck, and I'm
>> getting the "No such file or directory" error. Here is my code so far:
>>
>>
>>
>> [code]
>> #! /usr/bin/perl
>> #
>> use DBI;
>> use DBD::mysql;
>> use Text::CSV;
>>
>>
>> #configure variables
>> my $host = "localhost";
>> my $db = "somefakedatabase";
>> my $table = "somefaketable";
>> my $user = "somefakeuser";
>> my $password = "yeahrightlikethisismyrealpasswordLOL";
>>
>> #connect to the database
>> my $dbc = "dbi:mysql:$db:$host";
>> if(my $dbh = DBI->connect($dbc, $user, $password) or die "Can't connect to
>> the
>> database: $DBI::errstr\n") {
>> print "Connected to the database!";
>> }
>>
>> #setup parser
>> my $csv = Text::CSV->new();
>> print "What is the name of the file? : ";
>> chomp(my $file = <STDIN>);
>>
>> open CSV, "<", $file or die "Can't open the file \"$file\":
>> $!";
>> while(<CSV>) {
>> next if ($. == 1);
>> if ($csv->parse($_)) {
>> my @columns = $csv->fields();
>> my $myquery = $dbh->prepare('insert into $table
>>
>> (station_number,WBAN_number,station_name,country,fips,state,ICAO_callsign,lattitude,longitude,elevation)
>> values ($columns[0], $columns[1], **truncated**
>> $myquery->execute();
>> $dbh->disconnect();
>> } else {
>> my $err = $csv->error_input;
>> print "Failed to parse line: $err";
>> }
>> }
>> close CSV;
>> closedir TMPDIR;
>> [\code]
>>
>> Any ideas as to why this isn't working?
>>
>
>
