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
LEARN ABOUT PHP
sql-acceptable-by-4d
SQL-ACCEPTABLE-BY-4D(3) 1 SQL-ACCEPTABLE-BY-4D(3)
SQL acceptable by 4D - PDO and SQL 4D
4D implements strictly the ANSI 89 standard, and have it enforced. It is highly recommended to read the 4D SQL documentation to learn
about the available commands. The URL of the manual is : http://doc.4d.com/. Below is a list of 4D SQL characteristics: it is not exhaus-
tive, but may serve as an introduction.
Characteristics of 4D SQL
+-------------------------------------+--------------------------------------+---+
| Characteristics | | |
| | | |
| | Alternative | |
| | | |
| | Note | |
| | | |
+-------------------------------------+--------------------------------------+---+
| INTEGER | | |
| | | |
| | Modify the SQL to use INT. | |
| | | |
| | INT is the supported integer type in | |
| | 4Dv12.0. | |
| | | |
| CHAR | | |
| | | |
| | Use VARCHAR instead. | |
| | | |
| | Unsupported in 4Dv12.0 | |
| | | |
| UNION | | |
| | | |
| | Unsupported. Make separate queries. | |
| | | |
| | Unsupported in 4Dv12.0 | |
| | | |
| SELECT 1 + 1; | | |
| | | |
| | SELECT 1 + 1 FROM _USER_SCHEMAS; | |
| | | |
| | FROM is required | |
| | | |
| FLOAT | | |
| | | |
| | Cast the FLOAT value into a FLOAT or | |
| | STRING, with an SQL 4D function | |
| | (CAST, ROUND, TRUNC or TRUNCATE) | |
| | | |
| | Unsupported in current versions of | |
| | the PDO_4D driver | |
| | | |
| Strong typing | | |
| | | |
| | Take care your SQL query, or your | |
| | PHP code provides data with the | |
| | expected type | |
| | | |
| | One must provide the right type | |
| | that 4D expect. One can't insert '1' | |
| | (as a string) in an INTEGER column. | |
| | | |
|PDO.execute(row)(3) : only works if | | |
|all the table's column are of type | | |
|TEXT or VARCHAR | | |
| | | |
| | Use the prepared statements, and use | |
| | the right types. | |
| | | |
| | The PDO extension cast all values | |
| | through execute() as string, and | |
| | expect the SQL database to parse the | |
| | values. | |
| | | |
| SELECT NULL FROM TABLE | | |
| | | |
| | Do not use NULL constants. Extract | |
| | them from the table | |
| | | |
| | It is not allowed to use the NULL | |
| | constant in the select list | |
| | | |
| SELECT * FROM TABLE WHERE 1 | | |
| | | |
| | Use WHERE 1 = 1 | |
| | | |
| | A constant can't be used in a WHERE | |
| | clause | |
| | | |
| SHOW TABLES | | |
| | | |
| | Use system tables | |
| | | |
| | The list of tables, schemas, index, | |
| | etc. are in these system tables : | |
| | _USER_TABLES, _USER_COLUMNS, | |
| | _USER_INDEXES, _USER_CONSTRAINTS, | |
| | _USER_IND_COLUMNS, _USER_CONS_COL- | |
| | UMNS, and _USER_SCHEMAS. | |
| | | |
| SQL structure delimiter | | |
| | | |
| | Use the following function to pro- | |
| | tect SQL elements: function | |
| | sqlEscapeElement(elem) { return '[' | |
| | . str_replace(']',']]', $elem) . | |
| | ']'; } | |
| | | |
| | To escape SQL elements names | |
| | (tables, fields, users, groups, | |
| | schema, primary key, etc.), the | |
| | whole identifier must be between | |
| | square brackets, and the closing | |
| | brackets ']' must be doubled. | |
| | | |
+-------------------------------------+--------------------------------------+---+
PHP Documentation Group SQL-ACCEPTABLE-BY-4D(3)