#!/usr/bin/perl
#This will print "Hello World!"
print("Hello world!");

#!/usr/bin/perl
 
use strict; #Make sure we use proper coding conventions
 
#Declaring an integer is easy, just use "my" the first time you use it, then use 
#the equals sign to set it to whatever Number you want
my $integer = 1; 
 
#print can take and print multiple arguments separated by a comma. The first argument is our integer to be printed
#The second argument is an escaped newline (which prints a "new line", how novel.) 
#An actual newline shouldn't be used since it would shift your code down a line (obviously)
#the newline character is usually required, if you omit it, the next thing you print will appear alongside what you just printed.
print($integer, "\n");
#you can also use a different syntax for print:
print $integer, "\n"; #it works the exact same way as the other one, it's a matter of style.
 
#Declaring a float (essentially an integer with more precision, a decimal place!) is the same
my $float = 3.9;
 
#you can use comments wherever you want in your code, but make sure not to put
#any comments in front of your code, since you can't partyvan.info close them
#like this# print($float, "\n");
#as comments only end at the end of the line in perl
#you can also put comments at the end of a line
print "penis\n"; #like this
 
#declaring a string is simple. if you don't need to use any escaped characters like \n
#you can just put it in single quotes like so:
my $string = 'loldongs';
#this makes the string "literal", i.e. any variable names or special characters (like \n) are not parsed into their "normal" meanings
 
#otherwise you put it in double quotes, like this:
my $otherString = "lol\ndongs";
#you can also put a variable in a double quoted string to put its value in it, like this:
my $yetAnotherString = "$float $string"; #which is the same as "3.9 loldongs"
 
my $areWeDone = "All Done With Scalars!\n";
 
print($areWeDone); #yes we are

#!/usr/bin/perl
 
use strict;
 
#You can use qw to define array elements without using quotes
#qw can be enclosed with pretty much any character, but you should probably
#use a relatively uncommon character for it, since any occurrence of that
#character will end / start the array
#for this reason, I use the vertical pipe ( | )
 
my @names = qw|Fred Aaron Julie Tom|;
 
my @sortedNames = sort(@names); #fill the new array with the elements from the old array sorted alphabetically
 
foreach my $name (@sortedNames) { #for every name in the list
	print($name, "\n"); #print it with a newline
}

#!/usr/bin/perl
 
use strict;
 
my @insultNouns = qw|Buffoon Idiot Moron Lamebrain|;
my @insultAdjs = qw|Stinky Stupid Fat Pompous|;
 
#rand() takes one argument, an upper limit for the random number. We use the 
#element index (defined by the $# symbol) as the upper limit, adding 0.5
#so the last element has an equal chance of being selected as any other number
#since rand() returns a float by default, we convert it to an integer
 
my $nounNum = int rand($#insultNouns + 0.5);
my $adjNum =  int rand($#insultAdjs + 0.5);
 
my $insultingName = $insultAdjs[$adjNum]; #Start off the name with an insulting adjective
$insultingName .= " ".$insultNouns[$nounNum]; #Stick a space and a noun onto the end
print($insultingName, "\n"); #print out the result

#!/usr/bin/perl
 
use strict;
 
my @insultNouns = qw|Buffoon Idiot Moron Lamebrain|;
my @insultAdjs = qw|Stinky Stupid Fat Pompous|;
 
#You can either choose readability or compactness of code, it's up to you.
#Though if compactness is really of concern to you, consider creating subs to handle common tasks
print($insultAdjs[int rand($#insultAdjs + 0.5)], " ", $insultNouns[int rand($#insultNouns + 0.5)],"\n");

#!/usr/bin/perl
 
use strict;
 
my %userInfo; #declare an empty hash (associative array)
my @userNames = ('billjohnston', 'johndoe', 'janedoe', 'alroker'); #this is the best way to define array contents
                                                                   #only use qw if you're feeling lazy.
my @userPasswords = ('Baseball1', 'ungnome', 'GrApEs634', 'Sl1mNTr1m');
 
for (0..$#userNames){ #if there are 4 elements in @usernames, this will loop 5 times
# $_ is a special variable that will be explained later
	$userInfo{$userNames[$_]} = $userPasswords[$_]; #convert the two arrays to a hash
}
 
print('Username: '); 
chomp(my $username = <STDIN>); #take input from the user, ignoring ending newline
                               #chomp basically removes the trailing \r\n (or just \n)
                               #which you usually get when reading input or from a file.
print('Password: '); 
chomp(my $password = <STDIN>);
print("\n");
 
if ($userInfo{$username} eq $password){
	print($username, '@localhost#~ '); #using a comma in a print is prefered to using the . concatenation operator
	                                   #using a . forces perl to treat the scalar as a string
	chomp(my $command = <STDIN>); #just wait for the user to press enter;
	print("Error, Exiting\n");
}else{
	print("Incorrect Username or Password.\n");
}

#!/usr/bin/perl
 
use strict;
 
#hashes are signified by the % symbol
#The proper way to initialize a hash is ('Key' => 'Value');
#you then access the a value in the hash using the
#$hashName{$key} syntax
#you can use a variable as the element name or just use a plain string
my %userConfig = (	'Name' => 'Anonymous',
			'Prompt' => 'I did it for the ____',
			'Password' => 'lulz',
			'Secret' => 'The Game' );
#as a sidenote, if you define an nonexistent hash key, it creates that key
#for example, "$userConfig{'Date'} = 'Yesterday';" would create a key named 'Date' in hash %userConfig
 
print("Welcome, ", $userConfig{'Name'}, "\n"); #prints "Welcome, Anonymous"
print($userConfig{'Prompt'}, ": "); #prints "I did it for the ____"
chomp(my $password = <STDIN>);
#reads from STDIN (user input), stores into the variable $password and then chomp()s its newline.
 
if($password eq $userConfig{'Password'}){ #if the password the user input is the same as the one defined in %userConfig
	print("\nSecret: ",$userConfig{'Secret'}, "\n"); #prints "Secret: The Game"
}else{ #otherwise, the password did not match
	print("\nGet out, spai.\n");
}

#!/usr/bin/perl
 
use strict;
 
my @users = (
	{'Name' => 'James', 'Age' => 21},
	{'Name' => 'Adam', 'Age' => 37},
	{'Name' => 'Paul', 'Age' => 19}
); #define an array with 3 hashes inside
   #if you want to keep your hashes ordered, you have to put them inside an array
   #or (do it another, probably better way and) use a two-dimensional array.
   #for the sake of simplicity, we will use an array of hashes.
   #notice how the hashes do not have names, they are called anonymous hashes.
   #this means you can only access them through the array
 
for (0..$#users){ #iterate through the array
	#print the contents of the hashes inside
	print("Name:\t", $users[$_]{'Name'}, "\n", "Age:\t", $users[$_]{'Age'}, "\n\n");
}

#!/usr/bin/perl
 
use strict;
 
for my $gay(qw|denvetta Pedrobear januszeal Deltantor|){
	#make a call to the sub 'isAGay' and print what it returns to us
	print isAGay($gay);
}
 
sub isAGay {
	#shift gets the first element in @_ (arguments sent to an array), and removes it from @_
	#it's useful for giving a sub's arguments more readable names instead of $_[0], $_[1], etc
	#you can also use the more verbose "shift @_" statement. but it does exactly the same;
	my $theGay = shift;
	#return specifies what the subroutine should return (obviously)
	#a subroutine can be used anywhere the type of data it returns can be
	#here we return a scalar, so we can use it in a print function just like normal
	return $theGay." is a gay.\n"; #use $_[0] in a sub just in case
}

use Module::Name;

use strict;
 
use strict "vars";
use strict "refs";

use warnings;
 
use warnings "all";