file test.txt where first entry is the name in db columns and second is name that is in html files used for parsing.
i make a search using the second elements on every line
name and stream location has a _ before and after becuause i dnt parse them from file . i simply assign them value /
name _Name_
age age
stream_loc _Stream Location_
html file to be parsed is a simple file
<html><body> age: 2<br></body></html>
i can print the line where age;2 occured but somehow when i extract it, it doesnt go into db as 2 but as "absent".
this means the html file entries are not being parsed.or if parsed but not assinged to the hash variable ..
there is no problem with first and last element i can get their values correctly in db. but not for age. -
-
#!/perl/bin/perl
-
-
use CGI qw(:standard);
-
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
-
use File::Find;
-
use DBI;
-
use HTML::Scrubber;
-
use Tie::IxHash;
-
-
print header;
-
-
my $count=0;
-
my $lines;
-
-
-
#===============================================================================
-
#first entry is the database column name and second is the file parameter name which is to be parsed from file
-
open FILE,"test.txt";
-
while(<FILE>)
-
{
-
push @query_ref,[split];
-
}
-
#print $query_ref[1][1];
-
-
close (FILE);
-
#===============================================================================
-
-
#Defining directory of the location of streams
-
my $dir="C:/type";
-
-
#Connection String
-
my $dbh=DBI->connect('dbi:Oracle:test1','scott','tiger',{RaiseError => 1, AutoCommit => 1})or die "Can't connect to database $DBI::errstr\n";
-
-
my %params=();
-
-
find(\&edits,$dir);
-
-
sub edits
-
{
-
if (/\.html$/) #looks for html files in folder
-
{
-
$count++;
-
print "<BR>$count)..<BR>";
-
-
-
-
my $scrubber = HTML::Scrubber->new; #initialize html scrubber
-
-
-
-
tie %params,"Tie::IxHash";
-
-
open(FILE,$File::Find::name) or die $!;
-
-
-
-
while(defined(my $line = <FILE>))
-
{
-
my $line= $scrubber->scrub($line); #scrub all html Tags
-
-
$params{$query_ref[0][1]}{$_} = 1;
-
$params{$query_ref[1][1]}={};
-
$params{$query_ref[2][1]}{$File::Find::name} = 1;
-
-
-
foreach my $key (keys %params)
-
{
-
if($line=~/$key/)
-
{
-
print "<br>$line"; #when age: 23 appears it prints #correctly
-
if($line =~ m/: (.*)/)
-
{
-
$params{$key}{$1} = 1; #<<<==i think here is #prob
-
}
-
}
-
}
-
#------------------SPECIAL CASES------------------------------------------------
-
-
}
-
-
}
-
-
# Transform hash data into 'xxx,yyy,zzz' forms as needed
-
foreach my $key (keys %params)
-
{
-
$params{$key} = join(',', keys(%{$params{$key}}));
-
-
if (!$params{$key})
-
{
-
$params{$key} = 'Absent';
-
}
-
}
-
-
for my $key ( keys %params )
-
{
-
my $value = $params{$key};
-
print "<Br>$key => $value<BR>";
-
}
-
-
-
my $query = "insert into pooja values ('" .join("','", map { $params{$$_[1]} } @query_ref) . "')";
-
my $sql=qq{$query};
-
my $sth=$dbh->prepare($sql);
-
$sth->execute();
-
close(FILE);
-
}
-
-
-
print "<br>$count files updated";
-
$dbh->disconnect if defined($dbh);
-
-
-
-
3  1614 
The problem is in this line: -
$params{$query_ref[1][1]}={};
-
With each iteration of the while loop, value for the key 'age' will be re-assigned to an anonymous hash, overwriting the value (key-value pair) assigned in:
The structure for "age" key is different from others in your script. If that is how you want it to be, define that line before while loop: -
$params{$query_ref[1][1]}={};
-
-
while(defined(my $line = <FILE>))
-
Thanks for the reply. i did that . but then "Age" doesnt show up at all in the final hash entries. i can just see two values Name and stream location
also i noticed one more thing. with the initial same code if i input a text file it works very well and fetches age 's value too.
then y not in html. as u can see i have used scrubber package too that scrubs all html tags.
hey.. in addition to your suggestion for shifting that line up it was also
tie %params,"Tie::IxHash"; function which i had placed inside the sub/ it should be in the declaration part exactly after declaration of hash.
my %params;
tie %params,"Tie::IxHash";
find(\&edits,$dir);
thankyou so much for your help. it works very well now for all files :-) :-)
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Gail Zacharias |
last post by:
I am investigating the possibility of using pgsql as the database in an application. I have some unusual requirements that I'd like to ask you all about. I apologize in advance if my terminology is...
|
by: Viorel |
last post by:
Adding new row with default values.
In order to insert programmatically a new row into a database table, without
direct "INSERT INTO" SQL statement, I use the well-known DataTable.NewRow,...
|
by: Chip |
last post by:
I've got a datagrid defined on the design page. At runtime, I'd like to add
a bound column. I'm using
Dim CallNum As New BoundColumn()
CallNum.DataField = "call_num"
CallNum.HeaderText = "Call #"...
|
by: Jim Heavey |
last post by:
Trying to figure out the technique which should be used
to add rows to a datagrid. I am thinking that I would
want an "Add" button on the footer, but I am not quite
sure how to do that. Is that...
|
by: Fao, Sean |
last post by:
I have a DataGrid that I'm adding CheckBox controls to at runtime (in
the code behind) and I'm not sure if I'm doing it correctly.
First of all, I noticed that the MyDataGrid.Columns.Add() method...
|
by: Eamonn |
last post by:
Hi
I am running Microsoft Visual Studio 2005 Team Edition Version
8.0.50727.42. I am adding columns to a GridView at runtime. When I add
a BoundField that will contain DateTime data I want to...
|
by: Jo |
last post by:
Hi.
I'm getting the following error when creating a table with 250 columns
.. I have tried creating it in a 32K tablespace , still the same issue.
Is this a limitation in DB2? I am using DB2...
|
by: explode |
last post by:
I made a procedure Public Sub Novo(ByVal nova1 As String, ByVal nova2 As
String) that creates a new oledbDataAdapter with insert update select and
delete commads. I also added that commands can...
|
by: gkinu |
last post by:
Hello,
I am creating a report that can have a varying number of columns that are only determined at run time.
I saw a solution that comes near what i want. I downloaded a collection of sample...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
| |
