# say 'Hello World!'; # my $name = 'John Doe'; # say 'Hello $name'; # say "Hello $name"; # my %capitals = 'UK', 'London', 'Germany', 'Berlin'; # say %capitals; # say "fotbar" ~~ / bar /; # OUTPUT: «bar␤» # say "foobar" ~~ / bar /; # OUTPUT: «bar␤» my @tracks = ( "TRMMMNS128F93548E1SOYGNWH12AB018191E3 Gars Su'l SofaL'antarctique", "TRMMMPJ128F9306985SOQMZZI12AB01850D4Christian CastroTu Vida Con La Mía", "TRMMMKQ128F92EBCB5SOOLRHW12A8C142643KreatorAll of the same blood", "TRMMMHS128F42A0971SOMXBRA12AB017C656The EmotionsBlessed", "TRMMWJS12903CBB7F5SOLBDWO12AB0188CC2AerosmithRemember (Walking In The Sand)" ); my @tracks2 = ( "TRMCFLR128F92F34FCSOXBSOF12A8C1436AEFull FlavaRescue Me (Taste Of Flava Remix) (feat Hazel Fernandes)", "TRNHWIZ128F93164A0SOCESGY12AB018543CNeil YoungIve Been Waiting For You [Previously Unreleased Mix]", "TRMUDCR12903CA7BAASOJBAOJ12A8AE47999Franky PankFilet Mignon \{Doomsday\}", "TRNGBKC12903CE5953SOBJIRH12AB018BF53Atahualpa YupanquiAhí Andamos\\ Señor", "TRFIOAR128F93153DCSOCTJMJ12AB0185CDASonny Terry / Brownie McGheeUnderstand / Me", "TRMUDCR12903CA7ADFSOJBAOJ12A8AE47050Frank SinatraStrangers In The_Night (Remastered Album Version) [The Frank Sinatra Collection]", "TRMMGQU128F9340803SOLTFTE12A8C13718BPaul MillerMemories Of Love - Original Mix", "TRNGBMI128F4253718SOJPIVB12A8C13302FIlluminateOutro: \"Alles_ Was Blieb", "TRNGVLK12903CC942BSOFFWQH12AB018C366Sturm CaféSturm Café \"Der Löwe Ist Zuruck", "TRNCYSN128F9300977SOVHMDW12AB017E669Jimmy BurnsBaby Don`t Do It", "TRNRYSZ128F425806BSOPTQQY12A8AE4717EVictims FamilyVinnie + 1", "TRNQNWN128F932E118SOUUWRZ12AB0188A67Under The DroneWaste = Burn / Beauty", "TRNQDIN128F9302583SOGNLSX12AAF3B145BK3 Feat. Alice LascellesPlay To Win feat. Wesley S Remix", "TRMQWOS128F42AE007SOBWHYN12A8C13DB4FAnthony HamiltonPreacher's Daughter featuring Tarsha McMillian", "TRMUDCR12903CA7ADFSOJBAOJ12A8AE47050Frank SinatraStrangers In The Night (Remastered Album Version) [The Frank Sinatra Collection]", "TRNGCCE128F4215E1BSOXZKUO12A6D4FC481John Brown\'s BodyBlazing's Love" ); my @tracks3 = ( "TRMMHSX128F92D8F4DSOYKXMF12A58A79AE4Asheru And Blue Black Of The Unspoken HeardHow You Livin? f/J-Live & Grap Luva & Sondia", "TRHGJIW128F421CBA7SOQRZSW12A6D4FEBFBSexappeal¿Por Que No Dejas Ese Loco?", "TRMWVCV128F9344EF0SOTJHZJ12AB0182F54None More BlackYou Suck! But Your Peanut Butter's OK", "TRRCOCB128F42689D2SOAGUFA12A8AE478DAHéroes del Silencio¡ Rueda_ Fortuna ! (Live Version 1995)", "TRMMHMD128F427428DSOPWMAB12A58A7E8E9Blue Foundation02.17 AM", "TRMHGSI128F4272C6CSOPAFYQ12A8C13500EMarvin Hamlisch;John Lithgow;Jeffrey HuardI ;Cannot ;Hear the City (Jack Noseworthy with Marvin Hamlisch at the piano)", "TRMMUOV128F14550D0SOYOOFW12A6D4F859AEndellion String QuartetString Quartet No.3 in D major Op.18 No.3 : I Allegro", "TRMMJXM128F4250CBASOLUYOV12AF72A655BEric B. & RakimSet 'E&m Straight", "TRMEGTF128F4216F47SONOMZJ12A6D4FB39DSoleDa Year ov Da \$exxx Symbl (Vocal)", "TRMIWTC12903CF9ED9SOYSLAJ12A58A789ECConsequenceWack N*ggas", "TRMMDSM128F9301C01SONYDXG12AB017EF87TonexF@ce Down", "TRMXSDC128F427AF0ESOUYOAK12A8C136985Williamson2%er", "TRMKVMA12903CA3C66SORRWZX12AB01884A6The Beautiful PeopleSleepless Nights #2", "TRPKKCH128F427478CSOKGPHO12A8C13A896Reginald DixonIrish Washerwoman | Peggy O'Neill | The Rose Of Tralee | Killarney | St patrick's day", "TRMMRNI128EF34C4A7SOUOLRQ12A6BD5074EElakelaisetHumppakavalier" ); 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 = /\ .* \ .* \ (.*)/; # # 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 = "TRMMWJS12903CBB7F5SOLBDWO12AB0188CC2AerosmithRemember (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 = /\ .* \ .* \ (.*)/; # $_ ~~ $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 "" ## 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+\s*\w+ /; # say "!than the of ! " ~~ /<|w>of|the<|w>\s/; # exit; # say "outsanding fatty onery king of hill" ~~ />of>\s?/; # say "Kong of the Hill" ~~ />of>\s?/; # my $string = "To !a Kong of the Hill With the!"; # say $string; # # my $pattern = s:g/>(a|an|and|by|for|from|in|of|on|or|out|the|to|with)>//; # # my $pattern = /(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: $_; } ################################################################################

Language	Title	Created	Username
LanguageRaku	TitleLab2 test	Created1 year ago	Usernamelingbe
LanguageRaku	Titletest	Created1 year ago	Usernamelingbe

Public snippets