(s/^\s*//, s/\s*$//) for ($first,$mi,$last,$state);
That part actually removes leading and trailing spaces from the list of variables.
I am crystal clear with this clarification. Thanks.
However, the hash structure you used
is so compact and does so much, that even with your description, it remains beyond my full grasp at this stage of my perl newbishness.
Even though I don't fully grasp this data structure, I can use it, modify it, and apply it. So thanks again KevinADC!
I am trying to parse a Fixed width file with data as below. I am trying to assign column values from each record to variables. When I parse the data, the spaces in all coumns are dropped. I would like to retain the spaces as part of the dat stored in the variables. Any help is appreciated.
I... (4 Replies)
Hi,
I have a fixed width file with some records as given below:
" 1000Nalsdjflj243324jljlj"
"-0300Njfowjljl309933fsf"
" 0010Njsfsjklj342344fsl"
I want to sum-up first field values(i.e from 2nd character to 6th character)of each record.
so for the above file i want to add (1000 - 300+... (2 Replies)
Hi All,
I have created a script which generates FIXED-WIDTH file by executing Oracle query.
SELECT RPAD(NVL(col1,CHR(9)),20)||NVL(col2,CHR(9))||NVL(col3,CHR(9) FROM XYZ
It generates the data file with proper alignment. But if same file i transfer to windows server or Mainframe... (5 Replies)
I am trying to determine what would be a fast and simple way to manipulate data that comes in a fixed width format. This data has 6 segments within a record. Each record needs to written out with a header and the 6 segments. Based on the value in column #6 the fields will be defined accordingly.... (4 Replies)
Hi Guys
I am checking the treads to get the answer but i am not able to get the answer for my question.
I have two files. First file is a pattern file and the second file is the file i want to search in it. Output will be the lines from file2.
File1:
P2797f12af 44751228... (10 Replies)
Dear members..
I have a fixed width file. Requirement is as below:-
1. Scan each record from this fixed width file
2. Check for value under field no "6" equals to "ABC". If yes, then filter this record into the output file
Please suggest a unix command to achieve this, my guess awk might... (6 Replies)
I am trying to selectively display several columns from a db2 query, which gives me a fixed-width output (partial output listed here):
--------- -------------------------- ------------ ------
000 0000000000198012 702 29
000 0000000000198013 ... (9 Replies)
I have a fixed width file of length 53. when is try to get the lengh of the record of that file i get 2 different answers.
awk '{print length;exit}' <File_name>
The above code gives me length 50.
wc -L <File_name>
The above code gives me length 53.
Please clarify on... (2 Replies)
Thank u so much .Its working fine as expected.
---------- Post updated at 03:41 PM ---------- Previous update was at 01:46 PM ----------
I need one more help.
I have another file(fixed length) that will get negative value (ex:-00000000003000) in postion (98 - 112) then i have to... (6 Replies)
Discussion started by: vinus
6 Replies
LEARN ABOUT DEBIAN
sdl::tutorial
pods::SDL::Tutorial(3pm) User Contributed Perl Documentation pods::SDL::Tutorial(3pm)NAME
SDL::Tutorial - introduction to Perl SDL
CATEGORY
Tutorials
SYNOPSIS
# to read this tutorial
$ perldoc SDL::Tutorial
# to run this tutorial
$ perl -MSDL::Tutorial -e 1
SDL Manual
"SDL::Tutorial" are incomplete and old. A new book has been started to provide a complete tutorial for SDL. See <http://bit.ly/hvxc9V>.
SDL BASICS
SDL, the Simple DirectMedia Layer, is a cross-platform multimedia library. These are the Perl 5 bindings. You can find out more about SDL
at <http://www.libsdl.org/>. You can find out more about SDL perl at <http://sdl.perl.org>.
Creating an SDL application with Perl is easy. You have to know a few basics, though. Here's how to get up and running as quickly as
possible.
Surfaces
All graphics in SDL live on a surface. You'll need at least one. That's what SDLx::App provides.
Of course, before you can get a surface, you need to initialize your video mode. SDL gives you several options, including whether to run
in a window or take over the full screen, the size of the window, the bit depth of your colors, and whether to use hardware acceleration.
For now, we'll build something really simple.
Initialization
SDLx::App makes it easy to initialize video and create a surface. Here's how to ask for a windowed surface with 640x480x16 resolution:
use SDLx::App;
my $app = SDLx::App->new(
width => 640,
height => 480,
depth => 16,
);
You can get more creative, especially if you use the "title" and "icon" attributes in a windowed application. Here's how to set the window
title of the application to "My SDL Program":
use SDLx::App;
my $app = SDLx::App->new(
height => 640,
width => 480,
depth => 16,
title => 'My SDL Program',
);
Setting an icon is a little more involved -- you have to load an image onto a surface. That's a bit more complicated, but see the "name"
parameter to "SDL::Surface-"new()> if you want to skip ahead.
Working With The App
Since $app from the code above is just an SDL surface with some extra sugar, it behaves much like SDL::Surface. In particular, the all-
important "blit" and "update" methods work. You'll need to create SDL::Rect objects representing sources of graphics to draw onto the
$app's surface, "blit" them there, then "update" the $app.
Note: "blitting" is copying a chunk of memory from one place to another.
That, however, is another tutorial.
SEE ALSO
SDL::Tutorial::Animation
basic rectangle drawing and animation
SDL::Tutorial::LunarLander
basic image loading and animation
AUTHORS
chromatic, <chromatic@wgz.org>.
Written for and maintained by the Perl SDL project, <http://sdl.perl.org/>. See "AUTHORS" in SDL for details.
COPYRIGHT
Copyright (c) 2003 - 2004, chromatic. 2009 - 2010, kthakore. All rights reserved. This module is distributed under the same terms as Perl
itself, in the hope that it is useful but certainly under no guarantee.
perl v5.14.2 2012-05-28 pods::SDL::Tutorial(3pm)