Mira luelista

## Vector.VObject.Serialize.vb
    Overridable Function Serialize() As String()
      Dim data(18) As String
      data(1) = Me.GetType.Name
      data(2) = bounds.X
      data(3) = bounds.Y
      data(4) = bounds.Width
      data(5) = bounds.Height
      data(6) = ZIndex
      data(7) = name
      data(8) = created

## Person.java
import java.util.ArrayList;
import java.util.Date;
import java.util.List;

/**
 * Class Person
 */
public class Person {

  //

## mw_fraktal01.vb


'-->
'--> mw_fraktal01.vb

#Reference System.Windows.Forms.dll
#Reference System.Data.dll
#Reference System.Drawing.dll
#Reference siaIDEMain.dll

## receiver_info.pl
#!/usr/bin/perl
# receiver_info.pl
# Verwaltet TechniSat TechniStar S1 Receiver über Netzwerk
# Copyright (c) 2011 Max Weller <perl AT max-weller.de>

use strict;
use LWP::UserAgent;

use Getopt::Std;

## adb-conv-moritzformat.pl
#!/usr/bin/perl
use Data::Dumper;
use strict;

my @felder = qw(Name Vorname Strasse Hausnr PLZ Ort);

sub write_to_file { my %data = %{$_[0]}; my @contacts = @{$_[1]};
	print $data{$_}, "|" for (@felder);
	print $_, "|" for (@contacts);
	print "\n";

## gist:958717

	public static void saveData() throws Exception {
		FileWriter w = new FileWriter("adressen.txt");
		for(Person p : personen) {
			p.writeToFile(w);
		}
		w.close();
	}
	public static void readData() throws Exception {
		BufferedReader r = new BufferedReader(new FileReader("adressen.txt"));

## gist:960971
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

sub tryit {
  print "trying $_[0]:$_[1] ...    ";

  my $r = $ua->post("http://www.rise-of-light.de/secure/login.php",
  Content => "username=".$_[0]."&passwd=".$_[1]);
  if($r->header("Location") =~ /welcome/) {

## gist:996169
$ perl -e "$_=shift;while($_>1){if($_%2){$_*=3;$_++;}else{$_/=2;}print++$c,\"# $_\n\"}" 12345

## wikipedia-philosophy-loop.pl
#!/usr/bin/perl

use strict;
use warnings;
use Switch;

use LWP::Simple qw($ua);
# changing User Agent string because Wikipedia.org blocks default LWP::Simple User Agent
$ua->agent("WikiBot/0.1");

## __SimpleImage.class.php
<?php

/*
* File: SimpleImage.php
* Author: Simon Jarvis
* Copyright: 2006 Simon Jarvis
* Date: 08/11/06
* Link: http://www.white-hat-web-design.co.uk/articles/php-image-resizing.php
*
* This program is free software; you can redistribute it and/or
	Overridable Function Serialize() As String()
	Dim data(18) As String
	data(1) = Me.GetType.Name
	data(2) = bounds.X
	data(3) = bounds.Y
	data(4) = bounds.Width
	data(5) = bounds.Height
	data(6) = ZIndex
	data(7) = name
	data(8) = created
	import java.util.ArrayList;
	import java.util.Date;
	import java.util.List;

	/**
	* Class Person
	*/
	public class Person {

	//



	'-->
	'--> mw_fraktal01.vb

	#Reference System.Windows.Forms.dll
	#Reference System.Data.dll
	#Reference System.Drawing.dll
	#Reference siaIDEMain.dll
	#!/usr/bin/perl
	# receiver_info.pl
	# Verwaltet TechniSat TechniStar S1 Receiver über Netzwerk
	# Copyright (c) 2011 Max Weller <perl AT max-weller.de>

	use strict;
	use LWP::UserAgent;

	use Getopt::Std;
	#!/usr/bin/perl
	use Data::Dumper;
	use strict;

	my @felder = qw(Name Vorname Strasse Hausnr PLZ Ort);

	sub write_to_file { my %data = %{$_[0]}; my @contacts = @{$_[1]};
	print $data{$_}, "\|" for (@felder);
	print $_, "\|" for (@contacts);
	print "\n";

	public static void saveData() throws Exception {
	FileWriter w = new FileWriter("adressen.txt");
	for(Person p : personen) {
	p.writeToFile(w);
	}
	w.close();
	}
	public static void readData() throws Exception {
	BufferedReader r = new BufferedReader(new FileReader("adressen.txt"));
	use LWP::UserAgent;

	my $ua = LWP::UserAgent->new;

	sub tryit {
	print "trying $_[0]:$_[1] ... ";

	my $r = $ua->post("http://www.rise-of-light.de/secure/login.php",
	Content => "username=".$_[0]."&passwd=".$_[1]);
	if($r->header("Location") =~ /welcome/) {
	#!/usr/bin/perl

	use strict;
	use warnings;
	use Switch;

	use LWP::Simple qw($ua);
	# changing User Agent string because Wikipedia.org blocks default LWP::Simple User Agent
	$ua->agent("WikiBot/0.1");
	<?php

	/*
	* File: SimpleImage.php
	* Author: Simon Jarvis
	* Copyright: 2006 Simon Jarvis
	* Date: 08/11/06
	* Link: http://www.white-hat-web-design.co.uk/articles/php-image-resizing.php
	*
	* This program is free software; you can redistribute it and/or