fork(1) download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $prefix;
  5. while (<DATA>){
  6.     chomp;
  7.     next unless $_;
  8.     if ($_ =~ /^!/){
  9.         $prefix = $_;
  10.         next;
  11.     }
  12.     else{
  13.         print "$prefix.$_\n";
  14.     }
  15. }
  16. __DATA__
  17. !Denver
  18.  
  19. Line 1
  20. Line 2
  21. Line 3
  22.  
  23. !New York
  24.  
  25. Line 1 
  26. Line 2
Success #stdin #stdout 0s 6176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
!Denver.Line 1
!Denver.Line 2
!Denver.Line 3
!New York.Line 1 
!New York.Line 2
https://ideone.com/oICl5U
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!