Søren Lund soren

## aws-profile.sh
#!/usr/bin/env bash

#
# INTRODUCTION
#
# Defines a function called aws-profile to list and select AWS profile
# to use. The function is meant for interactive use. You use it to
# select and set the current AWS Profile by setting the AWS_P#ROFILE
# environment variable.
#

## big_clock.pl
#!/usr/bin/env perl

# Display a big clock using blocks made from reverse video spaces

use warnings;
use strict;
use feature qw(signatures);
no warnings qw(experimental::signatures);
use utf8;

## schwartzian_transform.pl
#!/usr/bin/env perl

# Based on code from http://www.stonehenge.com/merlyn/UnixReview/col64.html

use strict;
use warnings;

use Data::Dumper;

print "Input \$str\n";

## StarTrekPicardWatchGuide.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                soren
                / StarTrekPicardWatchGuide.md
            
            
              Last active Jan 18, 2020
            
          
      View StarTrekPicardWatchGuide.md
  
      
    Your Ultimate Star Trek Picard Watch Guide
From https://intl.startrek.com/news/your-ultimate-star-trek-picard-watch-guide
A Crash Course on Jean-Luc Picard

 Star Trek: The Next Generation S04E02 Family
 Star Trek: The Next Generation S04E21 The Drumhead
 Star Trek: The Next Generation S05E19 The First Duty
 Star Trek: The Next Generation S05E25 The Inner Light


## bash-ssh-agent-init.sh
# Setup/start ssh agent

env=~/.ssh/agent.env

agent_load_env () { test -f "$env" && . "$env" >| /dev/null ; }

agent_start () {
    (umask 077; ssh-agent >| "$env")
    . "$env" >| /dev/null ; }

## foo.pod

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                soren
                / foo.pod
            
            
              Last active Dec 18, 2018
            
          
      View foo.pod
  
      
    #!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use File::Basename qw(basename);
use Pod::Usage;

use App::TimeClock;
  

## reStructuredText.rst

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                soren
                / reStructuredText.rst
            
            
              Last active May 4, 2018
            
          
      View reStructuredText.rst
  
      
    reStructuredText Demo
This is reStructuredText, a simple lighteight markup language that is readable in source form.
See also Markdown and Wikipedia


## Markdown.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                soren
                / Markdown.md
            
            
              Last active May 4, 2018
            
          
      View Markdown.md
  
      
    Markdown Demo
This is Markdown, a simple lighteight markup language that is readable in source form.
See also reStructuredText and Wikipedia

  
## open_in_ie.html
<!doctype html>

<html lang="en">
<head>
  <meta charset="utf-8">

  <title>Open Link in IE</title>
  <meta name="author" content="Søren Lund">
  <!-- We expect IE browser -->
  <style>span.showIE { display: inline } span.hideIE { display: none }</style>

## listtrimdemo.pl
#!/bin/env perl

use warnings;
use strict;

my $line = "one,two, three, four , five ";

sub print_list {
    printf "[%s]\n", join(', ', @_);
}
	#!/usr/bin/env bash

	#
	# INTRODUCTION
	#
	# Defines a function called aws-profile to list and select AWS profile
	# to use. The function is meant for interactive use. You use it to
	# select and set the current AWS Profile by setting the AWS_P#ROFILE
	# environment variable.
	#
	#!/usr/bin/env perl

	# Display a big clock using blocks made from reverse video spaces

	use warnings;
	use strict;
	use feature qw(signatures);
	no warnings qw(experimental::signatures);
	use utf8;
	#!/usr/bin/env perl

	# Based on code from http://www.stonehenge.com/merlyn/UnixReview/col64.html

	use strict;
	use warnings;

	use Data::Dumper;

	print "Input \$str\n";
	# Setup/start ssh agent

	env=~/.ssh/agent.env

	agent_load_env () { test -f "$env" && . "$env" >\| /dev/null ; }

	agent_start () {
	(umask 077; ssh-agent >\| "$env")
	. "$env" >\| /dev/null ; }
	<!doctype html>

	<html lang="en">
	<head>
	<meta charset="utf-8">

	<title>Open Link in IE</title>
	<meta name="author" content="Søren Lund">
	<!-- We expect IE browser -->
	<style>span.showIE { display: inline } span.hideIE { display: none }</style>
	#!/bin/env perl

	use warnings;
	use strict;

	my $line = "one,two, three, four , five ";

	sub print_list {
	printf "[%s]\n", join(', ', @_);
	}