I am new to perl programming. However i have a script that connects to the database and spools that into an output file.
Strange thing is that sometimes this script works and sometimes the ouput spool file is always 0 byte.
I have verified the sql query and the query always returns some value not sure why perl is not able to output this value to my spool file
- providing a Snapshot of my Code
Code:
open(Spool, "> $filename") or die "Error opening $filename\n";
while( $Conn->FetchRow() ) {
my $Temp =$Conn->Data("STATUS");
print "Value is $Temp"; --> $Temp has always some value in it
-- Approach 1
print Spool $Temp; --> This does not work output file is 0 byte
--- Approach 2
printf(Spool "%s\n", $Conn->Data("STATUS" )); --> This does not work output file is 0 byte
}
$Conn->Close();
close Spool;
I have used a similar code before and their it seems to work
Code:
open(Spool, "> $filename") or die "Error opening $filename\n";
my $blank = "| ";
my $lineCtr = 0;
printf(Spool "****************Biztalk Check****************\n");
while( $Conn->FetchRow() ) {
printf(Spool "\n%s %s %s %s\n",
$Conn->Data("COMP"),
$Conn->Data("SI"),
$Conn->Data("num_swifts"),
$Conn->Data("STATUS")
);
}
$Conn->Close();
close Spool;
Hi folks
I have a file with thousands of lines with fixed length fields:
sample (assume x is a blank space)
111333xx444TTTLKOPxxxxxxxxx
I need to make a copy of this file but with only some of the field positions, for example I'd like to copy the sample to the follwing: so I'd like to... (13 Replies)
Hello,
I am trying to output the values in an array to a file. The output needs to be formated such that each array value is left jusified in a field 8 character spaces long. Also, no more than 6 fields on a line. For example:
@array= 1..14;
Needs to be output to the file like so:
1 ... (4 Replies)
Hi All,
I am writing a Perl script such that the output from "perl myscript.pl file1" to be appended to another file name called file2.
I tried out with the below code but couldn't work.
Can any expert give me some advice?
open(OUTPUT, 'perl myscript.pl file1 |');
close OUTPUT;... (7 Replies)
In my server migration requirement, I need to compare if one file on old server is exactly the same as the corresponding file on the new server.
For diff and comm, the inputs need to be sorted. But I do not want to disturb the content of the file and need to find byte-to-byte match.
Please... (4 Replies)
here is simple perl script i wanted for my net connection ... just to check if default gateway is pingable or not if not write in log file but problem is that i can not write in file i can print on STDOUT but not in file ...why so ??
same thing was there when i was tying to write on sockets... (7 Replies)
Hi All
Can anyone please suggest me how to remove the last byte from a falt file .This is from the last line's last BYTE.
Please suggest me something.
Thank's and regards
Vinay (1 Reply)
Hi,
I am new to perl
I need to connect from linux server to oracle database and i need to query the database and take result into csv file.
i try to do but i am getting this error:
#!/usr/bin/perl
use DBI;
BEGIN {
$ENV{ORACLE_HOME} = '/home/oracle/product/8.1.7';
... (1 Reply)
As an simple example, I have the following files
fin1.zv being a one column set of number
1 90
2 80
3 60
4 30
5 20
fin2.zv is another file like this
1 10 20 30 40 50
2 60 70 80 90 0
3 90 80 70 60 50
4 40 30 20 10 0
5 10 20 30 40 50 (2 Replies)
I am writing a mod perl 2 download module and I am facing the same issue as this guy.
mp2 / Apache byterange filter | ModPerl | ModPerl
If I remove the check for EOS in byterange_filter.c and recompile Apache2, the byte range filter is executed and the result is correct but I am not sure that... (0 Replies)
Hi,
I have a unix shell script which generates a flat file after connecting to Teradata servers to fetch tables and views and also picks up modified unix scripts from the specified paths.
Later on the script calls a perl script to assign a value based on the type of object in the flat file which... (2 Replies)
Discussion started by: yohasini
2 Replies
LEARN ABOUT CENTOS
sieveshell
SIEVESHELL(1) User Contributed Perl Documentation SIEVESHELL(1)NAME
sieveshell - remotely manipulate sieve scripts
SYNOPSIS
sieveshell [--user=user] [--authname=authname] [--realm=realm] [--exec=script] server[:port]
sieveshell --help
DESCRIPTION
sieveshell allows users to manipulate their scripts on a remote server. It works via MANAGESIEVE, a work in progress.
The following commands are recognized:
list list scripts on server.
put <filename> upload script to server.
get <name> [<filename>] get script. if no filename display to stdout
delete <name> delete script.
activate <name> activate script.
deactivate deactivate all scripts.
OPTIONS -u user, --user=user
The authorization name to request; by default, derived from the authentication credentials.
-a authname, --authname=authname
The user to use for authentication (defaults to current user).
-r realm, --realm=realm
The realm to attempt authentication in.
-e script, --exec=script
Instead of working interactively, run commands from script, and exit when done.
REFERENCES
[MANAGESIEVE] Martin, T.; "A Protocol for Remotely Managing Sieve Scripts", draft-ietf-managesieve-03.txt, Mirapoint, Inc.; May 2001, work
in progress.
AUTHOR
Tim Martin <tmartin@mirapoint.com>, and the rest of the Cyrus team <cyrus-bugs@andrew.cmu.edu>.
perl v5.16.3 2014-06-10 SIEVESHELL(1)