Perl - Help required Post: 302291859

Sponsored Content

Top Forums UNIX for Advanced & Expert Users Perl - Help required Post 302291859 by b.paramanatti on Thursday 26th of February 2009 12:51:53 PM

02-26-2009

Registered User

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?

b.paramanatti

View Public Profile for b.paramanatti

Find all posts by b.paramanatti

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl help required

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...

2. Shell Programming and Scripting

Perl Script required...

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,...

3. Shell Programming and Scripting

perl required output

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...

4. Shell Programming and Scripting

Help required converting XSD to XML file in PERL

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"...

5. Shell Programming and Scripting

Help required in Building an XML using SAX Parser in perl

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> ...

6. Shell Programming and Scripting

Required help in perl regular expression substitution for this date format

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";...

7. UNIX for Advanced & Expert Users

Perl parsing help required.

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

8. Shell Programming and Scripting

PERL: Help required exact match

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...

9. Shell Programming and Scripting

Pattern Matching and extracting the required fields in Perl

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"...

10. Shell Programming and Scripting

Perl script required for processing the data

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...

LEARN ABOUT SUSE

git-peek-remote

GIT-PEEK-REMOTE(1)						    Git Manual							GIT-PEEK-REMOTE(1)

NAME

       git-peek-remote - List the references in a remote repository

SYNOPSIS

       git peek-remote [--upload-pack=<git-upload-pack>] [<host>:]<directory>

DESCRIPTION

       This command is deprecated; use git ls-remote instead.

OPTIONS

       --upload-pack=<git-upload-pack>
	   Use this to specify the path to git-upload-pack on the remote side, if it is not found on your $PATH. Some installations of sshd
	   ignores the user's environment setup scripts for login shells (e.g. .bash_profile) and your privately installed git may not be found on
	   the system default $PATH. Another workaround suggested is to set up your $PATH in ".bashrc", but this flag is for people who do not
	   want to pay the overhead for non-interactive shells, but prefer having a lean .bashrc file (they set most of the things up in
	   .bash_profile).

       <host>
	   A remote host that houses the repository. When this part is specified, git-upload-pack is invoked via ssh.

       <directory>
	   The repository to sync from.

AUTHOR

       Written by Junio C Hamano <gitster@pobox.com[1]>

DOCUMENTATION

       Documentation by Junio C Hamano.

GIT

       Part of the git(1) suite

NOTES

	1. gitster@pobox.com
	   mailto:gitster@pobox.com

Git 1.7.1							    07/05/2010							GIT-PEEK-REMOTE(1)