Pytanie : Parsing błąd

Dla the dołączać kod, I chcieć parse the dołączać przodować kartoteka, brać wartość src_id od the przodować kartoteka i kasować od database.

is ten przydział allright?
my $worksheet1 = $workbook->Worksheet ("WF") ;
Somehow I czuć ono być not.

getting ten błąd--
Can concatenation (.) lub zawiązywać w deletePrevPosting.pl przydział przy DeletePrevPosting.pl, blisko "" $src_id") "
delete argument być HASH lub SZYK element lub plasterek przy DeletePrevPosting.pl. 
(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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

#! /usr/bin/perl5.10 - w

używać ostrzeżenie;
używać surowy;
use Spreadsheet:: ParseExcel;
use IO:: Skalar;
use Dane:: Dumper;
używać DBI;
use DBD:: MSDB2;

mój $curr_etl = "wf_OTC_Taxlots_Open";

mój $parser = Spreadsheet:: ParseExcel->new ();
mój $workbook = $parser->parse ("/ms/user/s/sayantag/Source.xls");
mój $worksheet1 = $workbook->Worksheet ("WF");
#my $worksheet2 = $workbook->Worksheet ("Calc");
druk $worksheet1;



dla $worksheet1 ($workbook->worksheets ()) {
mój ($row_min, $row_max) = $worksheet1->row_range ();
mój ($col_min, $col_max) = $worksheet1->col_range ();

 dla mój $row ($row_min. $row_max) {##First for##
 dla mój $col ($col_min. $col_max) {##Second for##
   mój $cell = $worksheet1->get_cell ($row, $col);
   jeżeli ($col==0 && $row! =0 && ($worksheet1->get_cell ($row, (0)) - >value eq "$curr_etl"))  {
       $col++;
       mój $src_id = $worksheet1->get_cell ($row, $col) - >value;
       druk $src_id;


mój $dbh = DBI->connect ("dbi: MSDB2: NQ200001", '', '', {"RaiseError" => (1)}) lub
          kostka do gry "Móc baza danych: $DBI:: errstr";

$dbh->do (deleatur od pfnd.funding_journal_vw fj dokąd fj.SRC_ID = "$src_id"));
$dbh->disconnect;
$workbook->close ();
     }
   }
 }
}
Attachments:
Source.xls (13 KB) (Kartoteka Typ Szczegół)
Attached przodować file

Odpowiedź : Parsing błąd

Wycena powodować $src_id wewnątrz dobitnie bez interpolacja ponieważ the sql ogradzać w pojedynczy wycena.  Jeżeli ty zmieniać jeden the below, ono musieć (lub przynajmniej różny błąd).

$dbh->do ("deleatur od pfnd.funding_journal_vw fj dokąd fj.SRC_ID = \ "$src_id \ "");
$dbh->do ("deleatur od pfnd.funding_journal_vw fj dokąd fj.SRC_ID = "$src_id" ");
Inne rozwiązania  
 
programming4us programming4us