Pacman and added a bunch of crap to perl
authorqorg11 <qorg@vxempire.xyz>
Wed, 1 Jul 2020 03:51:14 +0000 (05:51 +0200)
committerqorg11 <qorg@vxempire.xyz>
Wed, 1 Jul 2020 03:51:14 +0000 (05:51 +0200)
harmful/software/pacman.md [new file with mode: 0644]
harmful/software/perl.md

diff --git a/harmful/software/pacman.md b/harmful/software/pacman.md
new file mode 100644 (file)
index 0000000..8928ae5
--- /dev/null
@@ -0,0 +1,7 @@
+# pacman you're fucking retarded
+
+<img src="https://lainsafe.delegao.moe/files/DazgDVOz.jpg" width=600>
+
+![](https://lainsafe.delegao.moe/files/dUPHjiYC.jpg)
+
+Screenshots by our [noble soydev](https://twitter.com/dvtate0)
index b737081..0c8f6c3 100644 (file)
@@ -1,20 +1,81 @@
 # Perl has shitty stuff
 
-Perl functions parameters are funny
+Perl functions fucking sucks
 
-<pre style='color:#d1d1d1;'><span style='color:#e66170; font-weight:bold; '>sub</span> function 
-<span style='color:#b060b0; '>{</span>
-       <span style='color:#e66170; font-weight:bold; '>my</span> <span style='color:#d2cd86; '>(</span>$x<span style='color:#d2cd86; '>,</span> $y<span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>=</span> @_<span style='color:#b060b0; '>;</span>
-       <span style='color:#9999a9; '># do something with $x and $y</span>
-<span style='color:#b060b0; '>}</span>
+~~~
+sub pile_of_crap
+{
+       my $x = shift; # $x is 3 if pile\_of\_crap(3)
+       # do something with $x
+}
+~~~
+Why can't it be normal?
 
-<span style='color:#9999a9; '># why can't it be like this?</span>
+>\>inb4 bash
 
-<span style='color:#e66170; font-weight:bold; '>sub</span> function<span style='color:#d2cd86; '>(</span><span style='color:#ffffff; background:#dd0000; '>m</span><span style='color:#ffffff; background:#dd0000; '>y</span> <span style='color:#ffffff; background:#dd0000; '>$</span><span style='color:#ffffff; background:#dd0000; '>x</span><span style='color:#ffffff; background:#dd0000; '>,</span> <span style='color:#ffffff; background:#dd0000; '>m</span><span style='color:#ffffff; background:#dd0000; '>y</span> <span style='color:#ffffff; background:#dd0000; '>$</span><span style='color:#ffffff; background:#dd0000; '>y</span><span style='color:#d2cd86; '>)</span> 
-<span style='color:#b060b0; '>{</span>
-       <span style='color:#9999a9; '># do something with $x and $y</span>
-<span style='color:#b060b0; '>}</span>
-</pre>
+~~~
+sub pile_of_crap(my $x)
+{
+       # do shit with $x;
+}
+~~~
+
+### $ @ % &
+
+Those symbols (altough they aren't confusing) are useless: for example
+
+remember this:
+
+* $: Scalars, numbers or strings (or references)
+* @: Arrays
+* %: Hashes, associative arrays
+
+~~~
+my @array = qw(hello this is an array);
+
+# How would you print the first element? print @array[0]? haha!
+
+print $array[0]; # prints hello
+~~~
+
+That's right! you converted from an array to a scalar (it makes sense
+though, but it's VERY confusing)
+
+same thing with hashes:
+
+~~~
+my %hash = qw(qorg asshole lain cute_hacker);
+
+print $hash{qorg} # prints asshole
+~~~
+
+Again, that's right! you converted a motherfucking associative array
+into a fucking scalar (again, makes a lot of sense when you think
+about it, you're getting only a string, but it can be VERY confusing)
+
+### There is more than one way to do it
+
+And that's based tbh
+
+Before, i defined an array and a hash using qw, because its a lot
+easier than do this:
+
+~~~
+my @array = ('hello','this','is','an','array');
+~~~
+
+That's the most common way to define an array. But you can also
+fucking do:
+
+~~~
+my @array;
+$array[0] = "hello";
+$array[1] = "this";
+$array[2] = "is";
+$array[3] = "an";
+$array[4] = "array";
+$array[1312312312] = "wtf"; # from 5 to 1312312312, contents are NULL.
+~~~
 
 ### use strict
 
@@ -24,3 +85,5 @@ unstrict``` instead
 ### perl's logo is an onion
 
 visiting code you wrote some weeks ago will make you cry.
+
+# But it is, still, the greatest programming language the world has ever known.