fork download 
  1. use warnings;
  2. use strict;
  3.  
  4. while (my $line = <>) {
  5.     $line =~ /^\s*(.+?), '(.+?)', '(.+?)';$/; # Doesn't handle internal escaping
  6.     print "DELETE ATTRIBUTE \"$1\" IN FOLDER \"$2\" FROM PROJECT \"$3\";\n";
  7. }
Success #stdin #stdout 0s 3700KB
comments ()
stdin 
Attribute_Name, 'Path', 'Tutorial';
Attribute_Name2, 'Path2', 'Tutorial';
stdout 
DELETE ATTRIBUTE "Attribute_Name" IN FOLDER "Path" FROM PROJECT "Tutorial";
DELETE ATTRIBUTE "Attribute_Name2" IN FOLDER "Path2" FROM PROJECT "Tutorial";
https://ideone.com/lAROKl
language:
Perl (perl 5.28.1)
created:
11 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!