-
Notifications
You must be signed in to change notification settings - Fork 0
/
create.pl
executable file
·65 lines (59 loc) · 14.1 KB
/
create.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/bin/perl -s
#============================#
# Programme de test : create #
#============================#
#
# Usage : ./create.pl -type="movie" or -type="serie"
#
$type ||= "all";
@ext = ("avi" , "mp4" , "mkv");
@tab1 = ("[www.Cpasbien.pe] Fast and Furious 3.2014.FRENCH.BRRiP.XViD-ARTEFAC", "max.la.menace.FRENCH.DVDRIP.2013", "Now You See Me.FRENCH.DVDRIP.x264.2014" , "Iron Man Rise Of Technovore.FRENCH.BluRay.1080p.2014", "The Avengers.FRENCH.BluRay.720p.2014", "Captain.America.The.First.Avenger.FRENCH.BluRay.AC3.2014" , "Jobs HDCAM" , "The King of Kong", "[WWW roazoraubr ARADA] Le Merveilleux Magasin de Mr Magorium.XViD-ARTEFAC","The Incredible Burt Wonderstone","Trop Belle","Voisins du troisieme type","Warm Bodies","Zombieland","Hacker National Geographic Reportage","21","Chasing Mavericks","Cloud Atlas","Drift","Les joueurs","Margin Call","Moneyball","Rain Man","Alexandre Astier-Que ma joie demeure","Anthony Kavanagh Fait Son Coming Out","Faites Entrer Fabrice Eboue","Manu Payet Au bataclan","Omar et Fred","stephane guillon liberte tres surveillee cd1","stephane guillon liberte tres surveillee cd2","SHOOTER Tireur D'élite - (Isisatis) Xvid","[www.Cpasbien.pe] mr.peabody.and.sherman.2014.french.bdrip.x264-goatlove","The Expendables 3 (2014) DVDSCR XviD-MAXSPEED www.torentz.3xforum.ro","Transformers Age of Extinction 2014 New Source HDTS x264 AC3 TiTAN","[www.Cpasbien.pe] Malefique.2014.PROPER.FANSUB.VOSTFR.DVDRiP.XViD-ARTEFAC","[www.Cpasbien.pe] Qu.est.Ce.Qu.on.A.Fait.Au.Bon.Dieu.2014.FRENCH.DVDRiP.XviD-CpasBien","Sin.City.A.Dame.to.Kill.For.2014.HDRip.XviD-SaM[ETRG]","The Maze Runner 2014 Cam x264 AAC REsuRRecTioN","[www.Cpasbien.pe] Lucy.2014.TRUEFRENCH.R6.MD.XviD-SHiFT","Deliver.Us.from.Evil.2014.FRENCH.BDRip.XviD.AC3-GLUPS","the.maze.runner.glups","Riddick.2013.FRENCH.BDRip.XviD-RELiC","[www.Cpasbien.pe] A.Walk.Among.The.Tombstones.2014.FRENCH..WEB-DL.x264.AC3-LiBERTY","Interstellar.2014.DVDScr.XVID.FANSUB.AC3.HQ.Hive-CM8","Anastasia.1998.TRUEFRENCH.DVDRip.XviD.AC3-LiberTeam","Apocalypse Now","Django.Unchained.2012.Z2.WiHD.zip","Django.Unchained.2013.1080P.BLURAY.REMUX.AVC.DTS.HD.MA.5.1-WiHD","Django Unchained_AtomicGdog.","Forrest Gump (1994)","Gran Torino (2008) [1080p]","Jason et les Argonautes 1963","Kill Bill Vol 1 (2003) [1080p]","Kill Bill Vol 2 (2004) [1080p]","Melancholia","Memento (2000)","Oldboy","Parker Lewis","Pulp Fiction [1080p] MULTi 1994 BluRay x264-Pop (Remastered)","Requiem for a Dream 2000 BRrip 1080P x264 - Ofek","Spartacus","The Fall (2006)","The.Grand.Budapest.Hotel.2014.720p.BluRay.x264-BLOW[rarbg]","The Great Gatsby","The Illusionist","The Prestige","The Virgin Suicides","Walt Disney - Hercule (Fr)","Water for Elephants (2011) DVDRip XviD-MAXSPEED","Wolf Children - Ame and Yuki 2012 720p Bluray x264 AC3 - BluDragon","8 Miles","A.Clockwork.Orange.1971.1080p.BluRay.x264.anoXmous","Blade.Runner.1982.Final.Cut.1080p.BluRay.x264.anoXmous","Brave.2012.TRUEFRENCH.720p.BluRay.x264-AiRLiNE","Brave 2012 TRUEFRENCH 720p BluRay x264-AiRLiNE [www.OMGTORRENT.com]","Brave.2012.TRUEFRENCH.DVDRiP.XViD-ARTEFAC","Braveheart (1995) 1080p 5.1 Blu-ray","Ed Wood (1994)","Fight Club (1999) [1080p]","Full.Metal.Jacket.1987.720p.BluRay.x264-x0r","Gattaca (1997)","Inglourious Basterds 2009 BRrip 1080P x264 - Ofek","[kat.sitescrack.com]full.metal.jacket.1987.720p.bluray.x264.x0r","[kickass.filesoup.com]mad.max.1979.blu.ray.1080p.x264.cinefile","[kickass.so]a.clockwork.orange.1971.1080p.bluray.x264.anoxmous","[kickass.so]blade.runner.1982.final.cut.1080p.bluray.x264.anoxmous","[kickass.so]braveheart.1995.1080p.5.1.blu.ray","[kickass.so]ed.wood.1994.720p.brrip.x264.yify","[kickass.so]fight.club.1999.1080p.brrip.x264.yify","[kickass.so]gattaca.1997.720p.brrip.x264.yify","[kickass.so]inglourious.basterds.2009.1080p.bluray.x264.anoxmous","[kickass.so]inglourious.basterds.2009.brrip.1080p.x264.ofek","[kickass.so]leon.1994.720p.bluray.ac3.x264.gaia.filou","[kickass.so]leon.the.professional.extended.1994.720p.brrip.x264.850mb.yify","[kickass.so]pulp.fiction.1080p.fullhd.best.quality.dvdsize.murdoc47","[kickass.so]rebelle.french.720p","[kickass.so]reservoir.dogs.1992.720p.brrip.x264.600mb.yify","[kickass.so]sin.city.2005.extended.1080p.bluray.h264.aac.rarbg","[kickass.so]the.shawshank.redemption.1994.1080p","[kickass.so]the.shining.1980.dir.cut.720p.650mb.yify","[kickass.so]the.usual.suspects.1995.1080p.bluray.x264.anoxmous","[kickass.so]vf.vostfr.collection.miyazaki.8.chefs.d.œuvres.d.animation","[kickass.to]walt.disney.hercule","[kickass.to]walt.disney.mulan.french.dvdrip","Kill Bill Vol 2 (2004) [1080p]","Leon The Professional Extended (1994)","Orange.Mecanique.1971.MULTi.1080p.BluRay.x264.DTS.AC3","Pulp Fiction [1080p] MULTi 1994 BluRay x264-Pop (Remastered)","rebelle-brave-french-dvdrip-2012","rebelle.truefrench.720p.bluray.2012.[www.zetorrents.com]","rebelle.truefrench.dvdrip.2012.[www.zetorrents.com]","Silver.Linings.Playbook.2012.FANSUB.VOSTFR.DVDSCR.XViD.AC3-NIKOo","Sin.City.2005.EXTENDED.1080p.BluRay.H264.AAC-RARBG","The Shining (1980)","The.Usual.Suspects.1995.1080p.BluRay.x264.anoXmous","Abduction","A Good Day To Die Hard","Alex Cross","Bullet To The Head","Colombiana","Django Unchained","Dredd","Equilibrium","Fast and Furious 3","Fast and Furious 4","Fast and Furious 5","Fast and Furious 6","GI Joe Retaliation","Hackers","I Am Number Four","Jack Reacher","Le Flingueur","Les Chevaliers Du Ciel","Looper","Pirates Des Caraibes La Fontaine De Jouvence","Red","Sherlock Holmes A Game of Shadows","Snatch","swordfish","The Expendables 2","The hobbit","The Man With The Iron Fists","Time Out","Total Recall Memoires Programmees","Underworld Awakening","Wolfman","20 Ans d Ecart","American Reunion","Amours et Turbulences","Balles de feu","Beautiful Creatures","Crazy Stupid Love","De l autre cote du periph","Friends With Benefits","Get Him to the Greek","JACKPOT","Johnny English reborn","killers","Le manoir hante et les 999 fantomes","Le Papillon","Les Infideles","max la menace","Mr and Mrs Smith","No Strings Attached","Populaire","Role models","The girl next door","The Incredible Burt Wonderstone","Trop Belle","Voisins du troisieme type","Warm Bodies","Zombieland","Hacker National Geographic Reportage","21","Chasing Mavericks","Cloud Atlas","Drift","Les joueurs","Margin Call","Moneyball","Rain Man","The Great Gatsby","Wall Street Money Never Sleeps","Echelon Conspiracy","Mensonges D Etat","Mission Impossible Ghost Protocol","Skyfall","Spy Game","The Bourne Legacy","Chronicle","Hansel And Gretel Witch Hunters","Harry Potter And The Deathly Hallows Part 2","Jumper","Le Monde fantastique d Oz","Le Pacte Du Sang","Le Purificateur","Push","R I P D","The Vampires Assistant","voyage au centre de la terre 2 l ile mysterieuse","After Earth","Battleship","John Carter","Limitless","Lockout","Men in Black III","Now You See Me","Oblivion","Pacific Rim","Prometheus","Speed racer","Star Trek","Star Trek Into Darkness","Surrogates","Transformers Dark Of The Moon CD1","Transformers Dark Of The Moon CD2","Green Lantern","Iron Man 2","Iron Man 3","Iron Man","Iron Man Rise Of Technovore","Kick Ass 2","Man of Steel","Superman Returns","Superman Unbound","The Amazing Spiderman","The Dark Knight Rises","American psycho","Only God Forgives","Nike 6.0 Leave A Message","RedBull That's It's All","The Art Of Flight","Ghost in the shell","Air Martin","Burn E","Doug En Mission Speciale","Hotel Transylvania","Jour Et Nuit","Kung Fu Panda Holiday Special 2012","L age de glace 4","La Luna","les cinq legendes","Les Indestructibles","les mondes de ralph","Martin Remonte Le Temp","megamind","Mini Buzz","moi moche et mechant 2","moi moche et mechant","Monsters University","Notre Ami le Rat","Passages Nuageux","Presto","Rebelle","Ronal The Barbarian","Tempete de boulettes geantes","Toy Story 3","Toy Story Toons Party Saurus Rex","Toy Story Vacances Hawaeennes","the croods","Montres et cie","Turbo","Captain America The First Avenger","Thor","Denis","Planes","Source Code","The Island","Super Blonde","Were the Millers","The King of Kong","Paranoia","Red 2","Abraham Lincoln Vampire Hunter","Jobs","Raiponce","Ted","Percy Jackson La mer des monstres","The Host","Snow White and the huntsman","Elysium","Le secret de Terabithia","Enemi d Etat","La Taupe","The Prodigies","Zathura a space adventure","Blade Runner","Benjamin Gates et le livre des secrets","Benjamin Gates et le tresor des templiers","Hysteria","The Avengers","Dark Shadow","Dylan Dog","Malavita","Man of Tai Chi","Nous sommes la Nuit","Scott Pilgrim","Le bruit des glacons","Don Jon","Players","Machete Kills","Bienvenue chez les robinsons","Puss In Boots","Ender s game","Europa Report","Le Merveilleux Magasin de Mr Magorium","Premium Rush","Rush","Tempete de boulettes geantes 2","The fifth state","The Wolf of Wall Street","About Time","Dallas Buyer Club","Escape Plan","Thor The Dark World","Frozen","White House Down","Old Boy","I Frankenstein","The Hunger Games Catching Fire","Quai d Orsay","Bad Milo","Snowpiercer","The Secret Life Of Walter Mitty","Her","47 Ronin","Last Vegas","Jack Ryan Shadow Recruit","Robocop","The Wolverine","X-men","X-men 2","X-men First Class","X-men Origin Wolverine","Horrible Bosses","3 Days to Kill","Leon","Homefront","OSS 117 Le Caire nid d'espion","OSS 117 Rio ne repond plus","Alexandre Astier Que ma joie demeure","Anthony Kavanagh Fait Son Coming Out","Faites Entrer Fabrice Eboue","Manu Payet Au bataclan","Omar et Fred","stephane guillon liberte tres surveillee cd1","stephane guillon liberte tres surveillee cd2","Kingsman The Secret Service 2015 CAM XviD AC3 MURD3R","Focus","Ex Machina","Kingsman The Secret Service","Project Almanac","The Expendables 3","The Riot Club","[ www.CpasBien.pw ] Unfriended.2015.FRENCH.HDTV.XviD-SVR","Hitman Agent 47 {2015} NEW HQCAM X264 AC3-MRG","[ www.CpasBien.cm ] Star.Wars.Episode.VII.The.Force.Awakens.2015.FRENCH.720p.BluRay.x264-Cortex91","[ www.CpasBien.cm ] Dirty.Grandpa.2016.FRENCH.WEBRip.XviD-ViVi","[ www.CpasBien.cm ] Synchronicity.2015.FRENCH.BDRip.XviD-EXTREME","[ www.CpasBien.cm ] Deadpool.2016.FRENCH.720p.BluRay.x264-VENUE","The.Secret.Life.of.Pets.2016.RERiP.TRUEFRENCH.DVDRip.XVID-eVe.www.torrent9.ws","Ghost_In_The_Shell-Arise-Border_1_Ghost_Pain","Ghost_In_The_Shell-Arise-Border_3_Ghost_Tears","Ghost_In_The_Shell-Arise-Border_4_Ghost_Stands_Alone");
@tab2 = ("[www.Cpasbien.pe] The.Flash.2014.S01E01.FASTSUB.VOSTFR.WEBRip.XviD.ATN" , "[www.Cpasbien.pe] The.Flash.2014.S01E02.FASTSUB.VOSTFR.WEBRip.XviD.ATN" , "[www.Cpasbien.pe] The.Flash.2014.S02E01.FASTSUB.VOSTFR.WEBRip.XviD.ATN" , "[www.Cpasbien.pe] Young & Hungry S01E01 VOSTFR HDTV" , "[www.Cpasbien.pe] The Big Bang Theory S07E15 FRENCH HDTV","The.Tomorrow.People.US.S01E03.FASTSUB.VOSTFR.HDTV.XviD-ADDiCTiON","The.Tomorrow.People.S01E05.FASTSUB.VOSTFR.HDTV.XviD-MiND","[www.Cpasbien.me] The.Tomorrow.People.US.FASTSUB.VOSTFR.S01E20.HDTV.XviD-ATN","[www.Cpasbien.pe] Gotham.S01E01.FASTSUB.VOSTFR.HDTV.XviD-ADDiCTiON","[www.Cpasbien.pe] Gotham.S01E00.FASTSUB.VOSTFR.HDTV.XviD-ATN","[www.Cpasbien.pe] Person.of.Interest.S04E10.FASTSUB.VOSTFR.HDTV.XviD-ADDiCTiON","Banshee S03E10 FINAL VOSTFR HDTV","Hawaii 5-0 (2010) S05E19 VOSTFR HDTV","Scandal S04E15 VOSTFR HDTV","Glee S06E11 VOSTFR HDTV","Peaky Blinders S01E06 FINAL FRENCH HDTV","Peaky Blinders S01E05 FRENCH HDTV","Peaky Blinders S01E04 FRENCH HDTV","Peaky Blinders S01E03 FRENCH HDTV","Peaky Blinders S01E02 FRENCH HDTV","Peaky Blinders S01E01 FRENCH HDTV","Elementary S03E17 VOSTFR HDTV","NCIS Los Angeles S06E17 VOSTFR HDTV","NCIS S12E17 VOSTFR HDTV","NCIS S12E16 VOSTFR HDTV","Scorpion S01E06 FRENCH HDTV","Scorpion S01E05 FRENCH HDTV","Scorpion S01E04 FRENCH HDTV","Vampire Diaries S06E16 VOSTFR HDTV","The Blacklist S02E15 VOSTFR HDTV","Grey's Anatomy S11E15 VOSTFR HDTV","Reign S02E16 VOSTFR HDTV","Empire (2015) S01E10 VOSTFR HDTV","Vikings S03E04 VOSTFR HDTV","The Big Bang Theory S08E18 VOSTFR HDTV","Elementary S03E04 FRENCH HDTV","Elementary S03E03 FRENCH HDTV","The Americans S03E07 VOSTFR HDTV","Esprits criminels (Criminal Minds) S10E17 VOSTFR","The 100 S02E16 FINAL VOSTFR HDTV","Les Revenants (US) S01E02 VOSTFR HDTV","Powers S01E03 VOSTFR HDTV","Powers S01E02 VOSTFR HDTV","Powers S01E01 VOSTFR HDTV","Les Mystères de Haven S05E03 FRENCH HDTV","Les Mystères de Haven S05E02 FRENCH HDTV","Les Mystères de Haven S05E01 FRENCH HDTV","The Strain S01E08 FRENCH HDTV","The Strain S01E07 FRENCH HDTV","Cougar Town S06E10 VOSTFR HDTV","Pretty Little Liars S05E23 VOSTFR HDTV","Marvel's Agents of S.H.I.E.L.D. S02E12 VOSTFR HDTV","Peplum S01E03 FRENCH HDTV","Person of Interest S04E17 VOSTFR HDTV","Scorpion S01E18 VOSTFR HDTV","Chicago Fire S03E17 VOSTFR HDTV","Witches of East End S02E05 FRENCH HDTV","Witches of East End S02E04 FRENCH HDTV","The Following S03E02 VOSTFR HDTV","12 Monkeys S01E08 FRENCH HDTV","The Good Wife S06E14 VOSTFR HDTV","Better Call Saul S01E06 FRENCH HDTV","Bates Motel S03E01 PROPER VOSTFR HDTV","Better Call Saul S01E06 VOSTFR HDTV","Brooklyn Nine-Nine S02E18 VOSTFR HDTV","Eye Candy S01E09 VOSTFR HDTV","Devious Maids S02E03 FRENCH HDTV","Devious Maids S02E02 FRENCH HDTV","Devious Maids S02E01 FRENCH HDTV","Les Revenants (US) S01E01 PROPER VOSTFR HDTV","[nextorrent.net] Taboo.UK.S01E02.VOSTFR.HDTV.XViD-EXTREME"
);
my $range = 3;
my $minimum = 0;
if ($type eq "movie")
{
foreach $tab1 (@tab1)
{
my $random_number = int(rand($range)) + $minimum;
$extension = $ext[$random_number];
my $file = "$tab1.$extension";
print "\tcreate : $file\n";
unless(open FILE, '>'.$file) {die "Unable to create $file\n";}
close FILE;
}
}
elsif ($type eq "serie")
{
foreach $tab2 (@tab2)
{
my $random_number = int(rand($range)) + $minimum;
$extension = $ext[$random_number];
my $file = "$tab2.$extension";
print "\tcreate : $file\n";
unless(open FILE, '>'.$file) {die "Unable to create $file\n";}
close FILE;
}
}
elsif ($type eq "all")
{
foreach $tab1 (@tab1)
{
my $random_number = int(rand($range)) + $minimum;
$extension = $ext[$random_number];
my $file = "$tab1.$extension";
print "\tcreate : $file\n";
unless(open FILE, '>'.$file) {die "Unable to create $file\n";}
close FILE;
}
foreach $tab2 (@tab2)
{
my $random_number = int(rand($range)) + $minimum;
$extension = $ext[$random_number];
my $file = "$tab2.$extension";
print "\tcreate : $file\n";
unless(open FILE, '>'.$file) {die "Unable to create $file\n";}
close FILE;
}
}