Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl - Help required
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
Old 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

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... (1 Reply)
Discussion started by: zedex
1 Replies

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,... (1 Reply)
Discussion started by: ntgobinath
1 Replies

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... (5 Replies)
Discussion started by: namishtiwari
5 Replies

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"... (2 Replies)
Discussion started by: vanitham
2 Replies

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> ... (8 Replies)
Discussion started by: vanitham
8 Replies

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";... (1 Reply)
Discussion started by: sarbjit
1 Replies

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 (9 Replies)
Discussion started by: suverman
9 Replies

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... (2 Replies)
Discussion started by: sarbjit
2 Replies

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"... (2 Replies)
Discussion started by: filter
2 Replies

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... (4 Replies)
Discussion started by: perlDiva
4 Replies

LEARN ABOUT DEBIAN

dput

dput(1) 						      General Commands Manual							   dput(1)

NAME

       dput - package upload tool for Debian

SYNTAX

       dput [options] [host] package.changes ...

DESCRIPTION

       This  is  a  tool  for uploading Debian packages into the archive. You may specify to which host it should upload the file by passing it an
       host argument. If omitted, dput uses the host specified by default_host (or, historically default_host_non-us) configuration option.   Also
       you have to pass the program one or more name of package.changes files and then they will be sequentially uploaded.

       This  program  will  then  upload  the  package for you into the archive, using a selected upload method. Currently dput supports ftp, scp,
       rsync, http, https, and local. The method scripts have been split from the main script  so  it  is  easy  to  add  new  methods.   Look	in
       /usr/share/dput/ for examples.

       Should  something  go  wrong  with your upload to destinations using the Debian upload queue daemon (e.g. ftp-master), you can remove files
       from the upload queue with dcut(1).

OPTIONS

       -c, --config - define a config file to use.

       -d, --debug - activate debugging mode, helpful if bugs occur.

       -D, --dinstall - do a dry run of dinstall after the upload.

       -f, --force - force an upload of an already uploaded package.

       -h, --help - print help information and exit.

       -H, --host-list - print the lists of hosts that dput knows about.

       -l, --lintian - run lintian before the upload.

       -U, --no-upload-log - do not write a .upload log file after uploading.

       -o, --check-only - check only the package and do not upload.

       -p, --print - print the configuration that dput is using.

       -P, --passive - use passive ftp instead of active. Note that passive ftp is the default unless specified  otherwise  in	the  configuration
       file.

       -s, --simulate - simulate an upload only.

       -u, --unchecked - don't check GnuPG signature on the changes file.

       -e,  --delayed  - Upload to a DELAYED queue, rather than the usual Incoming. This takes an argument from 0 to 15. Note that a delay of 0 is
       different from no delay at all.

       -v, --version - print version information and exit.

       -V, --check-version - check if the user has already installed and tested the package before putting it into the archive.

ENVIRONMENT

       This program doesn't depend on any environment variables. But if the variable USER is set, it will be used.

LICENSE

       This program is distributed under the terms of the GPL.

BUGS

       Please send bug reports to the author.

FILES

       /etc/dput.cf
	      global dput configuration file

       ~/.dput.cf
	      peruser dput configuration file

SEE ALSO

       dput.cf(5)
       dcut(1)
       /usr/share/doc/dput
       /usr/share/dput

AUTHOR

       dput was written Christian Kurz. The current maintainer is Thomas Viehmann <tv@beamnet.de>.

       Many other people have contributed to this code. See the Thanks file.

COMMENTS

       The author does appreciate comments and suggestions from you.

								  October 5, 2001							   dput(1)
All times are GMT -4. The time now is 12:40 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy