• Announcements

    • khawk

      Download the Game Design and Indie Game Marketing Freebook   07/19/17

      GameDev.net and CRC Press have teamed up to bring a free ebook of content curated from top titles published by CRC Press. The freebook, Practices of Game Design & Indie Game Marketing, includes chapters from The Art of Game Design: A Book of Lenses, A Practical Guide to Indie Game Marketing, and An Architectural Approach to Level Design. The GameDev.net FreeBook is relevant to game designers, developers, and those interested in learning more about the challenges in game development. We know game development can be a tough discipline and business, so we picked several chapters from CRC Press titles that we thought would be of interest to you, the GameDev.net audience, in your journey to design, develop, and market your next game. The free ebook is available through CRC Press by clicking here. The Curated Books The Art of Game Design: A Book of Lenses, Second Edition, by Jesse Schell Presents 100+ sets of questions, or different lenses, for viewing a game’s design, encompassing diverse fields such as psychology, architecture, music, film, software engineering, theme park design, mathematics, anthropology, and more. Written by one of the world's top game designers, this book describes the deepest and most fundamental principles of game design, demonstrating how tactics used in board, card, and athletic games also work in video games. It provides practical instruction on creating world-class games that will be played again and again. View it here. A Practical Guide to Indie Game Marketing, by Joel Dreskin Marketing is an essential but too frequently overlooked or minimized component of the release plan for indie games. A Practical Guide to Indie Game Marketing provides you with the tools needed to build visibility and sell your indie games. With special focus on those developers with small budgets and limited staff and resources, this book is packed with tangible recommendations and techniques that you can put to use immediately. As a seasoned professional of the indie game arena, author Joel Dreskin gives you insight into practical, real-world experiences of marketing numerous successful games and also provides stories of the failures. View it here. An Architectural Approach to Level Design This is one of the first books to integrate architectural and spatial design theory with the field of level design. The book presents architectural techniques and theories for level designers to use in their own work. It connects architecture and level design in different ways that address the practical elements of how designers construct space and the experiential elements of how and why humans interact with this space. Throughout the text, readers learn skills for spatial layout, evoking emotion through gamespaces, and creating better levels through architectural theory. View it here. Learn more and download the ebook by clicking here. Did you know? GameDev.net and CRC Press also recently teamed up to bring GDNet+ Members up to a 20% discount on all CRC Press books. Learn more about this and other benefits here.
Sign in to follow this  
Followers 0

problem with perl input

3 posts in this topic

hi, I'm having trouble running a perl script in both windows 7 and ubuntu

in windows when I try to run it it states the input file is specified twice

in ubuntu it claims it can't find the input file to open even though its in the same directory as the pl file I'm running.

here is the code up to the error point which occurs around the system function.


use strict;

use warnings;

use File::Spec;

my $inputFile = $ARGV[0];

my $backgroudFile = $ARGV[1];

#get name of the tester file and set it as the current working directory

my ($inputFileVolume,$inputFileDir,$name) = File::Spec->splitpath($inputFile);

my @workingDirArr = ($inputFileVolume,$inputFileDir);

my $workingDir = File::Spec->catdir(@workingDirArr);

chdir $workingDir or die "$0 failed to chdir to working dir $workingDir";

system ("sort -k 1,1 -k 4n -T $workingDir $name >tempLoc_$name")==0 or die "$0 failed to sort $name";

open (NAM, "tempLoc_$name") or die "$0 failed to open file tempLoc_$name";

Share this post

Link to post
Share on other sites

In Windows there is no '-k' option for your sort system call.  Sort interprets '-k' as the name of a file.  Since you specify it twice this is why you get the error.


Share this post

Link to post
Share on other sites

In Windows there is no '-k' option for your sort system call.  Sort interprets '-k' as the name of a file.  Since you specify it twice this is why you get the error.



What is a windows way to replicate the same functionality of the line?


Share this post

Link to post
Share on other sites

Unfortunately the Windows 'sort' program is quite limited.  I'm no expert on the OS commands so I don't know if there is a substitute for it.


However, you could do the sort yourself inside of Perl.  Open the file that you want to sort, store it in an array in memory, run it through a sort routine and store it in a new file.


open(RAW_INPUT,"<".$name) || die("Failed to open '".$name."'");
open(SORTED_OUTPUT,">tempLoc_".$name) || die("Failed to create 'tempLoc_".$name."'");

my (@raw_input) = ();  my ($line);

while($line = <RAW_INPUT>) { push(@raw_input,$line); }

my ($element);

foreach $element (sort @raw_input) { print(SORTED_OUTPUT $element); }



If you want to customize the sort routine you'll need to change the sort line to something like:


foreach $element (sort numerically(@raw_input)) ...

sub numerically {

# The sorted lamba uses $a and $b as the comparators.  You can write code to make a
# customized sorter.  Here I choose to sort numerically which overrides Perl's default
# of alpha-numeric.
Edited by Cosmic314

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0