#!/usr/bin/perl
use strict;
use warnings;

my $string="012345678901234567890"
print substr($string,0,16);
[download]

#!/usr/bin/perl
use strict;
use warnings;

open(FILE,"yourfilenamehere.txt") or die "Could not open file $!\n"; #
+ open yourfilenamehere.txt for reading
while(<FILE>){     #read yourfilenamehere.txt a line at a time
    chomp;         
    print "\n" . substr($_,0,160);    #as described above, except prin
+t first 160 characters only
}
close FILE    #close filehandle
[download]

hi monks
thanks for your piece of code..

$message = #22 2006-05-02 12:12:35 hjjjdddddd Advisory.No action required. event-101 severe is the name of the alarm but the way it is dispalyed cannot be digested at all 12121212121122
substr( $message,0,160 );

the above code truncates to 140 characters and display them instead of displaying 160 characters

kindly help me out and also tell me a way to display only the first 160 characters

thanks
lax

lax,

Using the following code and your string I get 160 characters output:

#!/usr/bin/perl
use strict;
use warnings;

my $string="#22 2006-05-02 12:12:35 hjjjdddddd Advisory.No action requ
+ired. event-101 severe is the name of the alarm but the way it is dis
+palyed cannot be digested at all 12121212121122";
print substr($string,0,160);
<code>
Output:
<code>
#22 2006-05-02 12:12:35 hjjjdddddd Advisory.No action required. event-
+101 severe is the name of the alarm but the way it is dispalyed canno
+t be digested at all
[download]

Can you please post the complete code you are using?

Update: Fixed typo, print substr($string,0,16); changed to print substr($string,0,160);

Martin

Which part are you having trouble with?

Some useful tips: open to open a file, <...> to read from a file, length to get the length of a string, substr to get a substring.

And your question appears to have nothing at all to do with validation.

Well, you've been told how to print the first (up to) 160 characters of each line, and eventually how to print the first (up to) 160 characters of the entire file ... but I figured you might also want to know how to stop reading after having read the first (up to) 160 characters of the file, provided your "characters" are "bytes".

my $read = do {
  local $/ = \160; # set record size
  open my $fh, '<', $filename or die "Could not open $filename: '$!'";
  <$fh>; # scalar context, so the first record only
};
# now print $read or whatever
[download]

See $/.

#! /usr/local/bin/perl -wl 
 
use strict; 

open IN,"<inpfile" ;

local $/ ;
my $r = substr(<IN>,0,160) ;
print "$r" ;
[download]

my $fileSize = -s $fileName;
[download]

or by using the stat() built-in

my $fileSize = (stat $fileName)[7];
[download]

then you can decide how many bytes (always assuming characters are bytes) to read

my $limit = 160;
my $bytesToRead
   = $fileSize > $limit
   ? $limit
   : $fileSize;
[download]

then use read() to read in what is appropriate (being sure to test for a successful read) and print it

my $bytesRead = read($inpFH, my $inpBuffer, $bytesToRead);

die qq{Bad read: read $bytesRead, expected $bytesToRead\n}
   unless $bytesRead == $bytesToRead;

print $inpBuffer;
[download]

I haven't shown getting and validating the file name or the opening and closing of filehandles here.

I hope this is of use.

Cheers,

JohnGG

open my $fh, '<', $filename or die "Cannot open '$filename' $!";

$/ = \160;

my $data = <$fh>;

print $data;
[download]