init

Author: bw1

csv2cliboard.pl

@@ -0,0 +1,42 @@
+# 
+# csv2cliboard.pl
+#
+# das ding soll ein obscures dateiformat gerade biegen
+#
+use utf8;
+use Encode;
+use Win32::Clipboard;
+$CLIP = Win32::Clipboard();
+
+#print join(/,/,@ARGV);
+
+my $s;
+
+while (my $z=<>) {
+	$z= decode('utf8',$z);
+	chomp $z;
+
+	my @f = split(",",$z);
+	my @zf;
+
+	foreach (@f) {
+		my $s=$_;
+
+		if ($_ =~ m/^(-?\d*)\.(\d+)$/ ) {
+			$s=$1.",".$2;
+		}
+
+		if ($_ =~ m/^(\d{1,2})\.(\d{1,2})\.(\d{4})/) {
+			$s=$2.".".$1.".".$3;
+		}
+
+
+		push(@zf,$s);
+	}
+
+	$s .= join("\t",@zf)."\n";
+}
+
+$s= encode('latin1',$s);
+
+$CLIP->Set($s);

csv2cliboard.zip

@@ -0,0 +1,8 @@
+# kopf
+1,1234,abcdefgh
+2,123.567,öäüßÖÄÜ
+3,02.20.2017,hallo afdssa
+4,2.4.2017,hallo afdssa
+5,-123.567,öäüßÖÄÜ €@²³
+6,-.567,öäüßÖÄÜ €@²³
+7,.567,öäüßÖÄÜ €@²³