Fråga : Ett satslösningfel

För fäst kodifiera, jag önskar att parse fäst överträffar sparar, tar en värderasrc_id från överträffa sparar och tar bort från en database.

is denna uppgiftsallright?
my för $worksheet1 = för $workbook->Worksheet (”WF”); känselförnimmelsen för
Somehow I det är not.

getting detta fel--
Can att inte ändra sammanlänkning (.) eller stränga i scalar uppgift på DeletePrevPosting.pl, nära "" $src_id”) ”argument för
delete är inte en PÖLSA eller en SAMLINGbeståndsdel eller skiva på DeletePrevPosting.pl.
> för

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:

" codeBody " " ># för class= " för new (); mitt $workbook = $parser->parse (”/ms/user/s/sayantag/Source.xls”); mitt $worksheet1 = $workbook->Worksheet (”WF”); #my $worksheet2 = $workbook->Worksheet (”Calc”); tryck $worksheet1; för $worksheet1 ($workbook->worksheets ()) { mitt ($row_min, $row_max) = $worksheet1->row_range (); mitt ($col_min, $col_max) = $worksheet1->col_range (); för min $row ($row_min. $row_max) {##Firstfor## för min $col ($col_min. $col_max) {##Secondfor## mitt $cell = $worksheet1->get_cell ($row, $col); om ($col==0 && $row! && =0, >valueeq ”$curr_etl” (för $worksheet1->get_cell ($row, 0) -)) { $col++; mitt $src_id = $worksheet1->get_cell ($row, $col) - >value; tryck $src_id; mitt $dbh = DBI->connect (”dbi: MSDB2: NQ200001”, '', '', {”RaiseError” => 1}) eller matrisen ”kan inte förbinda till databas: $DBI:: errstr”; $dbh->do (borttagnings från pfnd.funding_journal_vw fj var fj.SRC_ID = ”$src_id”)); $dbh->disconnect; $workbook->close (); } } } } Attachments: för >