02-26-2009
Perl - Help required
I am trying to upload a file to a SQL database table. The column type is IMAGE. I am looking for a solution to upload a word doc file. I tried 3 approaches.
1) my $fileToStore = "mytest.doc";
open IPFILE, "<", $name;
binmode IPFILE;
while (<IPFILE>)
{
$fileToStore .= $_;
}
close IPFILE;
#then pass $fileToStore as a parameter to procedure.
2) use File::BLOB;
my $name = "mytest.doc";
my $file = File::BLOB->from_file($name);
my $fileToStore = $file->freeze;
3) use Stream::FileInputStream;
my $name = "mytest.doc";
my $file = FileInputStream->new($name);
my $fileToStore = $file->readAll();
None of the approaches are working for binary doc file. They are working fine for txt files. Am I missing something?
I tried few more things like $fileToStore = unpack ("C*", $fileToStore); but to no avail.
Unfortunately the version of perl on Dev is old and does not support encoding. Could you please help us out?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi
previously this program used to ask for user input to perform operation so
i have done the modifications but problem is that i have to create new file and redirect that file as input to this file and i want to avoid that so i made following modifications in program and i am not sure if its... (1 Reply)
Discussion started by: zedex
1 Replies
2. Shell Programming and Scripting
Hi All,
Windows Platform. Perl Scripting.
I have a file called 'hostnames.txt' contains hostname entries one by one line.
Script has to perform the following command for each entry in that file.
ovtopofix -G <hostname>
Please anybody give me the script on this requirement.
Thanks,... (1 Reply)
Discussion started by: ntgobinath
1 Replies
3. Shell Programming and Scripting
Hi,
I have a string in log file from that i need to pick the username.
the string is like this--
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid 2172 tid 3124: 160: 10110847: userName :
pid... (5 Replies)
Discussion started by: namishtiwari
5 Replies
4. Shell Programming and Scripting
Hi,
Please find below the xsd.
<?xml version="1.0" encoding="ISO-8859-1" ?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="fruitorder">
<xs:complexType>
<xs:sequence>
<xs:element name="orderperson"... (2 Replies)
Discussion started by: vanitham
2 Replies
5. Shell Programming and Scripting
I want to use sax parser for my application as i have 5 Lakhs of data.
I have the xml file like this
<Nodes>
<Node>
<NodeName>Company</NodeName>
<File>employee_details.csv</File>
<data>employee_data.txt</data>
<Node>
<NodeName>dummy</NodeName>
... (8 Replies)
Discussion started by: vanitham
8 Replies
6. Shell Programming and Scripting
Hi,
I have written a small perl script to handle particular date format using perl, but it is not substituting the whole string. Can some one please check on what is the issue with the code.
$_ = "Date: November 25, 2010 09:02:01 PM";... (1 Reply)
Discussion started by: sarbjit
1 Replies
7. UNIX for Advanced & Expert Users
Hello, I got a file like this.
5201
5202
5203
5204
1234
2345
3456
4567
6210
6220
6230
6240
The required output should be
5201 1234 6210 (9 Replies)
Discussion started by: suverman
9 Replies
8. Shell Programming and Scripting
Hello,
My requirement is to iterate over all the lines of a file and compare them with a word and perform some operations if exact match is found.
For the snippet below, it works even if contents of line include "diff" and "diff:". I want it to work only if it is exactly "diff" and is not... (2 Replies)
Discussion started by: sarbjit
2 Replies
9. Shell Programming and Scripting
Hi All,
I am writing the following Perl Scrip and need your help in Pattern matching :
I have the following Shell Script that would read line by line from the file (file_svn) and would inturn calls the Perl Script:
#!/bin/bash
perl_path="/home/dev/filter"... (2 Replies)
Discussion started by: filter
2 Replies
10. Shell Programming and Scripting
I have following result.log file (always has 2 lines) which I need to process,
cat result.log
name.cmd.method,"result","abc","xyz";
name="hello,mine.12345,"&"tree"&" xyz "&" tree "&" xyz",
data="way,"&" 1"&"rate-me"&"1"&"rate-me",str="",ret="";
now I need to extract the strings/data as... (4 Replies)
Discussion started by: perlDiva
4 Replies