add comment with example patterns for regex

wtsi-npg · Jun 23, 2021 · 70b72d0 · 70b72d0
1 parent 076b62e
commit 70b72d0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/bin/npg_manifest4study b/bin/npg_manifest4study
@@ -253,6 +253,10 @@ sub _uploaded_files {
   my $files = {};
 
   while (<$fh>) {
+    # regex checks for filename patterns including:
+    #   xxxxx#z.cram
+    #   xxxxx_y#z.cram
+    #   xxxxx_y-y#z.cram
     ##no critic (RegularExpressions::RequireExtendedFormatting RegularExpressions::ProhibitEscapedMetacharacters ProhibitComplexRegexes)
     if ( m{(\S+/(\d+)/((\d+)(?:_(\d)(?:-\d)*)?#(\d+)[.]cram)):.*Hash \(md5\):\s+(\S+)}sm ) {
       my $path      = $1;