hi
Here is my code written to identify the particular position which is after a string (chr*). my input file looks some thing like this
i wanted to get the @pos as the immediate occurance after chr* as there are 2 such occurances in each line the first occrance has to be stored in pos[0] and second in pos[1] for pos[0] pattern search has to be made wih in pos[0]+6 characters and same vs for pos[1] but backwards
Hi all
I keep getting a segmentation fault error while running the script below.
#!/usr/bin/perl -w
use CGI ':standard';
use GD::Graph::pie;
use strict;
use warnings;
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
... (4 Replies)
Hello everyone,
I'm a starting website admin who 2 days ago decided to make the move from shared hosting to a vps on a linux (ubuntu 8.04) platform. This opened a whole new world for me, since I never worked with the console, SSH, linux,... before. I managed to get LAMP setup after a day of... (2 Replies)
Hi,
This is my piece of code.
my $logFile = $ARGV;
die "usage: $0 <logFile>" unless $logFile;
die "Logfile $logFile doesn't exist" unless -f "$logFile";
open(my $log, "<", $logFile) or die "Can't open $logFile for reading.";
print "Processing file $logFile...\n";
#my $authenticates... (2 Replies)
I solicited this site earlier this week and got a good answer for a perl
Script so I made this script from what understood from the answers
But now I have a bug and I'm stump. It doesn't parse correctly the
Output it stays on the first line My $f2 and reprints in a endless loop
I'm sure there... (3 Replies)
I am getting a strange error with perl's inbuilt script flush.pl. I am callling this script in my other script but it kept throwing error:
flush.pl did not return a true value at ./abc.pl line 1
abc.pl has:
require 'flush.pl';
Not sure why this error is coming. Can someone pls throw... (4 Replies)
Hello All
I am facing an issue
The unix script is running fine in unix environment which uses ssh connection but when I try to run the same in informatica environment (same server where I was running the unix script manually successfully) its showing the below error
command-line line 0:... (11 Replies)
1. The problem statement, all variables and given/known data:
filename = awkdata
Part 1: Write an awk program that removes the first field and prints only those lines where the third field is greater than 15 million.
Part 2: Do the same command above, but with perl instead of awk.... (0 Replies)
So I have a perl script that prompts the user to enter either q or Q to exit the program or c to continue said program. If the user inputs anything other than those three keys they will be prompted again and again for an appropriate input. My script works for the most part except for one small... (6 Replies)
Discussion started by: Eric1
6 Replies
LEARN ABOUT PHP
iptcembed
IPTCEMBED(3) 1 IPTCEMBED(3)iptcembed - Embeds binary IPTC data into a JPEG imageSYNOPSIS
mixed iptcembed (string $iptcdata, string $jpeg_file_name, [int $spool])
DESCRIPTION
Embeds binary IPTC data into a JPEG image.
PARAMETERS
o $iptcdata
- The data to be written.
o $jpeg_file_name
- Path to the JPEG image.
o $spool
- Spool flag. If the spool flag is over 2 then the JPEG will be returned as a string.
RETURN VALUES
If success and spool flag is lower than 2 then the JPEG will not be returned as a string, FALSE on errors.
EXAMPLES
Example #1
Embedding IPTC data into a JPEG
<?php
// iptc_make_tag() function by Thies C. Arntzen
function iptc_make_tag($rec, $data, $value)
{
$length = strlen($value);
$retval = chr(0x1C) . chr($rec) . chr($data);
if($length < 0x8000)
{
$retval .= chr($length >> 8) . chr($length & 0xFF);
}
else
{
$retval .= chr(0x80) .
chr(0x04) .
chr(($length >> 24) & 0xFF) .
chr(($length >> 16) & 0xFF) .
chr(($length >> 8) & 0xFF) .
chr($length & 0xFF);
}
return $retval . $value;
}
// Path to jpeg file
$path = './phplogo.jpg';
// We need to check if theres any IPTC data in the jpeg image. If there is then
// bail out because we cannot embed any image that already has some IPTC data!
$image = getimagesize($path, $info);
if(isset($info['APP13']))
{
die('Error: IPTC data found in source image, cannot continue');
}
// Set the IPTC tags
$iptc = array(
'2#120' => 'Test image',
'2#116' => 'Copyright 2008-2009, The PHP Group'
);
// Convert the IPTC tags into binary code
$data = '';
foreach($iptc as $tag => $string)
{
$tag = substr($tag, 2);
$data .= iptc_make_tag(2, $tag, $string);
}
// Embed the IPTC data
$content = iptcembed($data, $path);
// Write the new image data out to the file.
$fp = fopen($path, "wb");
fwrite($fp, $content);
fclose($fp);
?>
NOTES
Note
This function does not require the GD image library.
PHP Documentation Group IPTCEMBED(3)