Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
executable file 10 lines (6 sloc) 198 Bytes
#!/usr/local/bin/perl
use strict;
use warnings;
my $fullCourseName = 'basis.courses.MATH101';
my ($coursename) = $fullCourseName =~ m/^basis\.courses\.(.*)$/;
print "Coursename: $coursename\n";
You can’t perform that action at this time.