11-22-2011
Quote:
Originally Posted by
dnam9917
#!/usr/bin/perl
use strict;
use warnings;
print "Demo of array slicing \n";
my @abc="a b c d e f g h i j k l m n o p q r s t u v w x y z";
my @a=@abc[1..$#abc];
my @random=@abc[2,3,4,5];
my @comp=@abc[2,4,6,8,10,12,14,16,18,20,22,24];
my @comp1=(@abc[1,3,5],"Hello",@abc[7,9,11]);
print "abc is @abc \n";
print "a is @a \n";
print "random is @random \n";
print "comp is @comp \n";
print "comp1 is @comp1 \n";
can you please help me find the error in the above perl script.
...
Simply feed this program to the perl interpreter and it will find out all the errors for you.
tyler_durden
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
perl regexp error , I cant understand what is wrong
Hello all
I have simple perl regexp that is searching for pattern in string and replace it with the same string + addition string
here is what I have :
my $rec = q| new Array("Attributes Management" ... (4 Replies)
Discussion started by: umen
4 Replies
2. Shell Programming and Scripting
Hello, I need advice on how to check if started processes are finished in perl, here's explanation :
OS is RHEL 4, perl -v = "This is perl, v5.8.0 built for i386-linux-thread-multi"
The logic of the script :
#!/usr/bin/perl
use warnings;
$param1 = $ARGV;
$param2 = $ARGV;
$param3 =... (2 Replies)
Discussion started by: sysgate
2 Replies
3. Shell Programming and Scripting
I'm Using this script to find the time of a file. I'm very much new to PERL
and found this script posted by some one on this forum.
It runs perfectly fine, just that it gives me following errors with the
accurate output as well. I jus want the output to be stored in another file
so that i can... (0 Replies)
Discussion started by: bankimmehta
0 Replies
4. Shell Programming and Scripting
Hi All;
Is there anybody can explain this script please?
trap 'C_logmsg "F" "CNTL/c OS signal trapped, Script ${G_SCRIPTNAME] terminated"; exit 1' 2
trap 'C_logmsg "F" "Kill Job Event sent from the Console, Script ${G_SCRIPTNAME] terminated"; exit 1' 15 (3 Replies)
Discussion started by: thankbe
3 Replies
5. Shell Programming and Scripting
I'm just trying to confirm that I understand someone's code correctly.
If someone has code that says:
$foo ||= mysub();
I'm assuming that it means if $foo is nothing or undef, then assign it some value via mysub(). If I'm wrong on this, please let me know.
Also, what's the difference... (4 Replies)
Discussion started by: mrwatkin
4 Replies
6. Shell Programming and Scripting
Hello world! Can someone please explain me how this code works? I'ts supposed to find words in a dictionary and show the anagrams of the words.
{
part = word2key($1)
data = $1
}
function word2key(word, a, i, x, result)
{
x = split(word, a, "")
asort(a)
... (1 Reply)
Discussion started by: jose2802
1 Replies
7. Programming
co
#! /usr/bin/perl
use strict;
use warnings;
use diagnostics;
my $amount=""; my $bain; ; my $code="";
my $date;my $day;my $line; my $mo; my $LNUM = 0;
my $xyz=""; my $yr;
$yr = 2015;
my $F; my @F;
while (<>) {
chop;
++$LNUM;
@F = split(';');
if ( $F eq "Date" )... (1 Reply)
Discussion started by: hpk
1 Replies
8. Shell Programming and Scripting
I am trying to begin to troubleshoot this perl error that I keep getting, yet I get output is produced. The error is Use of uninitialized value in join or string line 175, <MANNO> line 7138 and below is line 175:
I am not too sure what the error is but since not every line has an error on it, I... (1 Reply)
Discussion started by: cmccabe
1 Replies
9. Shell Programming and Scripting
I have a file with two line, one is header, the other actual value:
TYPCD|ETID2|ETID|LEG ID|PTYP|PTYP SUB|TRD STATUS|CXL REASON|CACT|CACTNM|ENCD|ENC
D NM|TRDR|ASDT|TRDT|MTDT|STDT|LS|SECID|SECID TYP|SECNM|PAR|STCC|MARKET PRICE|DIS
MARKET PRICE|MARKET PRICE CURRENCY|SRC OF SETTLEMENT... (2 Replies)
Discussion started by: digioleg54
2 Replies
LEARN ABOUT DEBIAN
module::build::sdl
Module::Build::SDL(3pm) User Contributed Perl Documentation Module::Build::SDL(3pm)
NAME
Module::Build::SDL - Module::Build subclass for building SDL apps/games [not stable yet]
SYNOPSIS
When creating a new SDL application/game you can create Build.PL like this:
use Module::Build::SDL;
my $builder = Module::Build::SDL->new(
module_name => 'Games::Demo',
dist_version => '1.00',
dist_abstract => 'Demo game based on Module::Build::SDL',
dist_author => 'coder@cpan.org',
license => 'perl',
requires => {
'SDL' => 0,
},
#+ others Module::Build options
)->create_build_script();
Once you have created a SDL application/game via Module::Build::SDL as described above you can use some extra build targets/actions:
o you can create a PAR distribution like:
$ perl ./Build.PL
$ ./Build
$ ./Build par
There are some extra parameters related to 'par' action you can pass to Module::Build::SDL->new():
parinput => 'bin/scriptname.pl'
paroutput => 'filename.par.exe',
parlibs => [ qw/SDL SDL_main SDL_gfx/ ], #external libraries (.so/.dll) to be included into PAR
parmods => [ qw/Module::A Module::B/ ], #extra modules to be included into PAR
o to run the game from distribution directory you can use:
$ perl ./Build.PL
$ ./Build
$ ./Build run
o TODO: maybe some additional actions: parexe, parmsi, deb, rpm
DESCRIPTION
Module::Build::SDL is a subclass of Module::Build created to make easy some tasks specific to SDL applications - e.g. packaging SDL
application/game into PAR archive.
APPLICATION
/GAME LAYOUT
Module::Build::SDL expects the following layout in project directory:
#example: game with the main *.pl script + data files + modules (*.pm)
Build.PL
lib/
Games/
Demo.pm
bin/
game-script.pl
data/
whatever_data_files_you_need.jpg
the most simple game should look like:
#example: simple one-script apllication/game
Build.PL
bin/
game-script.pl
In short - there are 3 expected subdirectories:
o bin - one or more perl scripts (*.pl) to start the actual application/game
o lib - application/game specific modules (*.pm) organized in dir structure in "usual perl manners"
o data - directory for storing application data (pictures, sounds etc.). This subdirectory is handled as a "ShareDir" (see File::ShareDir
for more details)
o As the project is (or could be) composed as a standard perl distribution it also support standard subdirectory 't' (with tests).
RULES TO FOLLOW
When creating a SDL application/game based on Module::Build::SDL it is recommended to follow these rules:
o Use the name for your game from Games::* namespace; it will make the later release to CPAN much easier.
o Put all data files into data subdirectory and access the data subdir only via File::ShareDir (namely by calling distdir() function)
o TODO: maybe add more
perl v5.14.2 2012-05-28 Module::Build::SDL(3pm)