test
# say 'Hello World!';
# my $name = 'John Doe';
# say 'Hello $name';
# say "Hello $name";
# my %capitals = 'UK', 'London', 'Germany', 'Berlin';
# say %capitals;
# say "fotbar" ~~ / <!after foo> bar /; # OUTPUT: «bar»
# say "foobar" ~~ / <?after foo> bar /; # OUTPUT: «bar»
my @tracks = (
"TRMMMNS128F93548E1<SEP>SOYGNWH12AB018191E<SEP>3 Gars Su'l Sofa<SEP>L'antarctique",
"TRMMMPJ128F9306985<SEP>SOQMZZI12AB01850D4<SEP>Christian Castro<SEP>Tu Vida Con La Mía",
"TRMMMKQ128F92EBCB5<SEP>SOOLRHW12A8C142643<SEP>Kreator<SEP>All of the same blood",
"TRMMMHS128F42A0971<SEP>SOMXBRA12AB017C656<SEP>The Emotions<SEP>Blessed",
"TRMMWJS12903CBB7F5<SEP>SOLBDWO12AB0188CC2<SEP>Aerosmith<SEP>Remember (Walking In The Sand)"
);
my @tracks2 = (
"TRMCFLR128F92F34FC<SEP>SOXBSOF12A8C1436AE<SEP>Full Flava<SEP>Rescue Me (Taste Of Flava Remix) (feat Hazel Fernandes)",
"TRNHWIZ128F93164A0<SEP>SOCESGY12AB018543C<SEP>Neil Young<SEP>Ive Been Waiting For You [Previously Unreleased Mix]",
"TRMUDCR12903CA7BAA<SEP>SOJBAOJ12A8AE47999<SEP>Franky Pank<SEP>Filet Mignon \{Doomsday\}",
"TRNGBKC12903CE5953<SEP>SOBJIRH12AB018BF53<SEP>Atahualpa Yupanqui<SEP>Ahí Andamos\\ Señor",
"TRFIOAR128F93153DC<SEP>SOCTJMJ12AB0185CDA<SEP>Sonny Terry / Brownie McGhee<SEP>Understand / Me",
"TRMUDCR12903CA7ADF<SEP>SOJBAOJ12A8AE47050<SEP>Frank Sinatra<SEP>Strangers In The_Night (Remastered Album Version) [The Frank Sinatra Collection]",
"TRMMGQU128F9340803<SEP>SOLTFTE12A8C13718B<SEP>Paul Miller<SEP>Memories Of Love - Original Mix",
"TRNGBMI128F4253718<SEP>SOJPIVB12A8C13302F<SEP>Illuminate<SEP>Outro: \"Alles_ Was Blieb",
"TRNGVLK12903CC942B<SEP>SOFFWQH12AB018C366<SEP>Sturm Café<SEP>Sturm Café \"Der Löwe Ist Zuruck",
"TRNCYSN128F9300977<SEP>SOVHMDW12AB017E669<SEP>Jimmy Burns<SEP>Baby Don`t Do It",
"TRNRYSZ128F425806B<SEP>SOPTQQY12A8AE4717E<SEP>Victims Family<SEP>Vinnie + 1",
"TRNQNWN128F932E118<SEP>SOUUWRZ12AB0188A67<SEP>Under The Drone<SEP>Waste = Burn / Beauty",
"TRNQDIN128F9302583<SEP>SOGNLSX12AAF3B145B<SEP>K3 Feat. Alice Lascelles<SEP>Play To Win feat. Wesley S Remix",
"TRMQWOS128F42AE007<SEP>SOBWHYN12A8C13DB4F<SEP>Anthony Hamilton<SEP>Preacher's Daughter featuring Tarsha McMillian",
"TRMUDCR12903CA7ADF<SEP>SOJBAOJ12A8AE47050<SEP>Frank Sinatra<SEP>Strangers In The Night (Remastered Album Version) [The Frank Sinatra Collection]",
"TRNGCCE128F4215E1B<SEP>SOXZKUO12A6D4FC481<SEP>John Brown\'s Body<SEP>Blazing's Love"
);
my @tracks3 = (
"TRMMHSX128F92D8F4D<SEP>SOYKXMF12A58A79AE4<SEP>Asheru And Blue Black Of The Unspoken Heard<SEP>How You Livin? f/J-Live & Grap Luva & Sondia",
"TRHGJIW128F421CBA7<SEP>SOQRZSW12A6D4FEBFB<SEP>Sexappeal<SEP>¿Por Que No Dejas Ese Loco?",
"TRMWVCV128F9344EF0<SEP>SOTJHZJ12AB0182F54<SEP>None More Black<SEP>You Suck! But Your Peanut Butter's OK",
"TRRCOCB128F42689D2<SEP>SOAGUFA12A8AE478DA<SEP>Héroes del Silencio<SEP>¡ Rueda_ Fortuna ! (Live Version 1995)",
"TRMMHMD128F427428D<SEP>SOPWMAB12A58A7E8E9<SEP>Blue Foundation<SEP>02.17 AM",
"TRMHGSI128F4272C6C<SEP>SOPAFYQ12A8C13500E<SEP>Marvin Hamlisch;John Lithgow;Jeffrey Huard<SEP>I ;Cannot ;Hear the City (Jack Noseworthy with Marvin Hamlisch at the piano)",
"TRMMUOV128F14550D0<SEP>SOYOOFW12A6D4F859A<SEP>Endellion String Quartet<SEP>String Quartet No.3 in D major Op.18 No.3 : I Allegro",
"TRMMJXM128F4250CBA<SEP>SOLUYOV12AF72A655B<SEP>Eric B. & Rakim<SEP>Set 'E&m Straight",
"TRMEGTF128F4216F47<SEP>SONOMZJ12A6D4FB39D<SEP>Sole<SEP>Da Year ov Da \$exxx Symbl (Vocal)",
"TRMIWTC12903CF9ED9<SEP>SOYSLAJ12A58A789EC<SEP>Consequence<SEP>Wack N*ggas",
"TRMMDSM128F9301C01<SEP>SONYDXG12AB017EF87<SEP>Tonex<SEP>F@ce Down",
"TRMXSDC128F427AF0E<SEP>SOUYOAK12A8C136985<SEP>Williamson<SEP>2%er",
"TRMKVMA12903CA3C66<SEP>SORRWZX12AB01884A6<SEP>The Beautiful People<SEP>Sleepless Nights #2",
"TRPKKCH128F427478C<SEP>SOKGPHO12A8C13A896<SEP>Reginald Dixon<SEP>Irish Washerwoman | Peggy O'Neill | The Rose Of Tralee | Killarney | St patrick's day",
"TRMMRNI128EF34C4A7<SEP>SOUOLRQ12A6BD5074E<SEP>Elakelaiset<SEP>Humppakavalier"
);
my @tracks4_7 = (
" ' Quik's Groove VII ' ",
"' Burn 'Em Down '",
"Truck Drivin' man '",
"' ll B'e Back",
" Show Me' The Way ",
"Hel_lo9 'World",
"Hello9 'World"
);
my @tracks8 = (
"King OF tHe hill",
"outstanding 'of the with",
"no where to hide",
"to !my dear with"
);
# for @tracks -> $track {
# ################
# # LAB 1 TASK 1 #
# ################
# ## Edit the regex below to capture only song title
# ##
# say $track;
# my $song_title = /\<SEP\> .* \<SEP\> .* \<SEP\> (.*)/;
# # my $song_title = rx/^ SEP !(?before .*SEP) .* $/;
# if ($track ~~ $song_title) {
# say $0;
# ##
# ############################# End Task 1
# # $0 should be the title caught by regex first set of parens
# # It is added to end of the array
# # @tracktitles.push: $0;
# }
# say "\n";
# }
######Task 2#########################################################################
# my $str = "TRMMWJS12903CBB7F5<SEP>SOLBDWO12AB0188CC2<SEP>Aerosmith<SEP>Remember (Walking In The Sand)"
# $str ~~ s/W/K/;
# say $str;
# $_ = 'The Replacements';
# my $substitution = s/Replace/Entrap/;
# # s/Replace/Entrap/;
# # .say; # OUTPUT: «The Entrapments»
# $_ ~~ $substitution;
# say $_;
# # This loops through each track
# for @tracks2 -> $title {
# ##########################
# # LAB 1 TASK 2 #
# ##########################
# ## Add regex substitutions to remove superflous comments and all that follows them
# ## Assign to $_ with smartmatcher (~~)
# ##########################
# say $title;
# $_ = $title;
# my $song_title = /\<SEP\> .* \<SEP\> .* \<SEP\> (.*)/;
# $_ ~~ $song_title;
# $_ = $0;
# say $_;
# # Uncomment and replace ... with a substition for ( and anything that follows
# $_ ~~ s/<[\( \[ \{ \\ \/ _ \- : \" ` \+ =]>.*//;
# say $_;
# # Repeat for the other symbols
# $_ ~~ s/feat\. .*//;
# say $_;
# say "\n";
# ########################## End Task 2
# # Add the edited $title to the new array of titles
# # @filteredtitles.push: $_;
# }
##############################################################################
# my $string = "This is a #test string.";
# say $string;
# $string = $string.subst('#', 'HASH');
# say $string; # Output: This is a HASHtest string.
##########################
# LAB 1 TASK 3 #
##########################
## Add regex substitutions to remove punctuation
## Remember to permit the apostrophe ' (near enter key)
## Use the g (global) directive
##########################
# for @tracks3 -> $title {
# ##########################
# say $title;
# $_ = $title;
# # Uncomment and replace ... with a substition for ?
# $_ ~~ s:g/<[ \? \x[00BF] ! \x[00A1] \. ; : & \$ \* @ % \x[0023] \|]>//;
# say $_;
# # Repeat for the other symbols
# # my $hash = /#/;
# # $_ = $_.subst('#');
# # $ ~~ s:g/$hash//;
# # say $_;
# say "\n";
# ########################## End Task 3
# # Add the edited $title to the new array of titles
# # @filteredtitles.push: $_;
# }
################################################################################
# my $string = "''' Hello 'World! '''";
# say $string;
# $string ~~ s:g/^ \'+//;
# $string ~~ s:g/\'+ $//;
# say $string; # Output: "Hello World!"
# $string ~~ s:g/^ \s+//;
# $string ~~ s:g/\s+ $//;
# say $string;
# my $string ="Hello9 'World"; # should return False
# # my $string ="Hel_lo9 'World"; # should return True
# # my $pattern = /<-[\w\s\']>/;
# my $pattern = /<-[a..zA..Z\d\s\']>/;
# say so $string ~~ $pattern;
# if ($string ~~ $pattern) {
# say 'yes, it matches';
# } else {
# say "no, it doesn't match";
# }
# exit;
# # my $string =" ";
# my $string ="''";
# # my $pattern = /^\s*$/;
# # my $pattern = /^\'*$/;
# my $pattern = /^\'$/;
# say so $string ~~ $pattern;
# if ($string ~~ $pattern) {
# say 'yes, it matches';
# } else {
# say "no, it doesn't match";
# }
# exit;
# This removes non-English characters, trailing whitespace, and blank titles
##########################
# TASK 4, 5, 6, 7 Below #
##########################
## These are small tasks, where each "<your code here>"
## will be either a regex substitution
## or an if statement and a subsequent action (e.g. skip to next without adding)
##########################
# # This loops through each track
# for @tracks4_7 -> $title {
# ##########################
# # LAB 1 TASK 4 #
# ##########################
# ## Add regex substitutions to (1) leading and trailing apostrophes.
# ## and then (2) trim leading and trailing whitespace
# ## There will be some trailing apostrophes left after the trailing whitespace is removed
# ##########################
# # replace leading/trailing apostrophe
# say $title;
# $_ = $title;
# # Uncomment and replace ... with a substition to trim apostrophes
# $_ ~~ s:g/^ \'+//; # trim leading apostrophes
# $_ ~~ s:g/\'+ $//; # trim trailing apostrophes
# say $_;
# # Uncomment and replace ... with a substition to trim whitespace
# $_ ~~ s:g/^ \s+//; # trim leading whitespace
# $_ ~~ s:g/\s+ $//; # trim trailing whitespace
# say $_;
# # say "\n";
# ########################## End Task 4
# ##########################
# # LAB 1 TASK 5 #
# ##########################
# ## Filter out non-ASCII characters
# ## (letters, numbers, apostophe, space allowed)
# ##########################
# # Use "next;" to skip lines containing non-ASCII characters
# ##########################
# if ($_ ~~ /<-[a..zA..Z\d\s\']>/) {
# say 'yes, skip this';
# say "\n";
# next;
# } else {
# say "no, keep it";
# }
# ##########################
# ########################## End Task 5
# ##########################
# # LAB 1 TASK 6 #
# ##########################
# ## Skip title if (1) blank contains only whitespace,
# ## or (2) contains only apostrophes
# ##########################
# # skip if only contains whitespace
# ##########################
# if ($_ ~~ /^\s*$/) {
# next;
# }
# ##########################
# # skip if only contains only an apostrophe
# ##########################
# # my $pattern = /^\s*$/;
# if ($_ ~~ /^\'*$/) {
# next;
# }
# ##########################
# ########################## End Task 6
# ##########################
# # LAB 1 TASK 7 #
# ##########################
# ## Set to lowercase
# ##########################
# # minor edit needed to this line (raku has a handy function)
# # @filteredtitles.push: $_.lc;
# say $_.lc;
# ########################## End Task 7
# say "\n";
# }
# # Updates @tracks
# # return @filteredtitles;
###############################################################################
# my $text = "Hello World, welcome to the world!";
# $text ~~ s:i:g/world/universe/;
# say $text; # OUTPUT: "Hello universe, welcome to the universe!"
# # exit;
# ｢hello world｣
# say "h!ello worl!d" ~~ rx/ \w+<|wb>\s*<|wb>\w+ /;
# ｢helloworld｣
# say "hello!world" ~~ rx/ \w+<!wb>\s*<!wb>\w+ /;
# say "!than the of ! " ~~ /<?after \s><|w>of|the<|w>\s/;
# exit;
# say "outsanding fatty onery king of hill" ~~ /<?after <|w>>of<?before <|w>>\s?/;
# say "Kong of the Hill" ~~ /<?after <|w>>of<?before <|w>>\s?/;
# my $string = "To !a Kong of the Hill With the!";
# say $string;
# # my $pattern = s:g/<?after <|w>>(a|an|and|by|for|from|in|of|on|or|out|the|to|with)<?before <|w>>//;
# # my $pattern = /<?after |w>(of|the|a|an|and|by|for|from|in|on|or|out|to|with)<|w>\s/;
# # my $pattern = /<|w>(of|the|a|an|and|by|for|from|in|on|or|out|to|with)<|w>\s/;
# # $string ~~ s:i:g/$pattern//;
# $string ~~ s:i:g/<|w>(of|the|a|an|and|by|for|from|in|on|or|out|to|with)<|w>\s//;
# # $string ~~ s:g/\'+ $//;
# say $string; # Output: "Hello World!"
# # $string ~~ s:g/^ \s+//;
# # $string ~~ s:g/\s+ $//;
# # say $string;
# exit;
##########################
# LAB 1 TASK 8 #
##########################
## Add regex substitutions to remove common stopwords
## Use <|w> (word boundaries) in your regexs
## Also trim the single space following the word
## Use the g (global) directive
## Use the i (case insensitive) directive
##########################
for @tracks8 -> $title {
##########################
$_ = $title;
say $title;
# Uncomment and replace ... with a substitution for "a"
$_ ~~ s:i:g/<|w>(of|the|a|an|and|by|for|from|in|on|or|out|to|with)<|w>\s//;
# Repeat for the other stopwords
say $_;
say "\n";
##########################
# Add the edited $title to the new array of titles
# @filteredtitles.push: $_;
}
################################################################################
INFO