Perl - Revision history

Leaky: /* Mixing STDOUT and STDERR output in the right order */ generating methods

2018-10-12T14:04:26Z

‎Mixing STDOUT and STDERR output in the right order: generating methods

2018-10-05T09:02:19Z

‎Relationships: cascading

2018-10-02T11:27:50Z

‎DBIx::Class

2018-10-02T10:59:16Z

Added to programming category

2018-10-01T08:41:15Z

‎Accessing SQL Server from Perl

2017-11-09T15:36:59Z

‎Extra Perl modules for Catalyst dev: connecting to MS SQL

2016-08-16T09:41:45Z

‎Custom Perl: some frequently used modules

2016-08-16T09:10:34Z

‎Custom Perl

2016-06-27T14:36:24Z

‎Modules: Added installation of custom perl

2015-04-01T10:17:42Z

Added a tip about buffering

@@ Line 167: / Line 167: @@
   STDERR->autoflush(1);
   STDOUT->autoflush(1);
 [[Category:Programming]]

← Older revision		Revision as of 09:02, 5 October 2018
Line 99:		Line 99:

	'''might_have''' means: the same as '''has_one''', except its not guaranteed to be there.		'''might_have''' means: the same as '''has_one''', except its not guaranteed to be there.
		+
		+	=== Cascading ===
		+
		+	Attributes are required for the different relationships to disable cascading of delete/update.
		+
		+	<code>has_one</code> and <code>might_have</code>
		+
		+	{ cascade_delete => 0, cascade_update => 0 }
		+
		+	<code>belongs_to</code>
		+
		+	{ on_delete => undef, on_update => undef }
		+
		+	<code>has_many</code>
		+
		+	{ cascade_delete => 0 }

	=== Dates ===		=== Dates ===

← Older revision		Revision as of 11:27, 2 October 2018
Line 99:		Line 99:

	'''might_have''' means: the same as '''has_one''', except its not guaranteed to be there.		'''might_have''' means: the same as '''has_one''', except its not guaranteed to be there.
		+
		+	=== Dates ===
		+
		+	Adding a database independent way of fetching the current date/time in UTC.
		+
		+	package TestApp::Schema::ResultSet::Test;
		+
		+	use strict;
		+	use warnings;
		+
		+	use parent 'DBIx::Class::ResultSet';
		+
		+	__PACKAGE__->load_components('Helper::ResultSet::DateMethods1');
		+
		+	1;
		+
		+	and then using it, get the resultset and the first test (id = 1)
		+
		+	my $tests = $schema->resultset('Test');
		+	my $test = $tests->find(1);
		+
		+	and to set the date
		+
		+	$test->test_date( $test->result_source->resultset->utc_now );
		+
		+	or
		+
		+	$test->test_date( $tests->utc_now );

	== Tips ==		== Tips ==

← Older revision		Revision as of 08:41, 1 October 2018
Line 87:		Line 87:

	If this works, you're all set.		If this works, you're all set.
		+
		+	== DBIx::Class ==
		+
		+	=== Relationships ===
		+
		+	'''belongs_to''' means: a field (or fields) in THIS table is a foreign key (contains the primary key of) THAT other table.
		+
		+	'''has_many''' means: there are multiple (zero or more) rows in THAT table which contains THIS tables primary key.
		+
		+	'''has_one''' means: there ''is'' a row in THAT table which contains THIS tables primary key.
		+
		+	'''might_have''' means: the same as '''has_one''', except its not guaranteed to be there.

	== Tips ==		== Tips ==

@@ Line 45: / Line 45: @@
     GD::Text FCGI::ProcManager Catalyst::View::Email::Template \
     Template::Plugin::DateTime HTML::Tiny Hashids Term::Size::Any Time::ParseDate
 == Tips ==

← Older revision		Revision as of 09:41, 16 August 2016
Line 30:		Line 30:

	After this you should be always using Perl 5.20.1 as this user (that's what the perlbrew switch does). To install modules, simply use ''cpanm'' followed by the module name.		After this you should be always using Perl 5.20.1 as this user (that's what the perlbrew switch does). To install modules, simply use ''cpanm'' followed by the module name.
		+
		+	== Extra Perl modules for Catalyst dev ==
		+
		+	After installing a custom version of Perl as above it's a good idea to install a bunch of frequently used modules if you're doing any kind of Catalyst development.
		+
		+	cpanm Catalyst::Devel DBIx::Class::TimeStamp DBIx::Class::PassphraseColumn \
		+	DBIx::Class::InflateColumn::Serializer Catalyst::Model::DBIC::Schema \
		+	Catalyst::Plugin::Authentication Catalyst::Plugin::Authorization::Roles \
		+	Catalyst::Plugin::Session Catalyst::Plugin::Session::Store::DBI \
		+	Catalyst::Plugin::Session::State::Cookie Catalyst::Plugin::StatusMessage \
		+	Catalyst::Authentication::Store::DBIx::Class Catalyst::View::TT \
		+	Catalyst::View::JSON Log::Log4perl::Catalyst DBD::mysql Email::Valid \
		+	Text::CSV_XS LWP::Protocol::https XML::Simple XML::Writer GD::Image \
		+	GD::Text FCGI::ProcManager Catalyst::View::Email::Template \
		+	Template::Plugin::DateTime HTML::Tiny Hashids Term::Size::Any Time::ParseDate

	== Tips ==		== Tips ==

← Older revision		Revision as of 09:10, 16 August 2016
Line 15:		Line 15:

	Installing a custom version of Perl just for a single user (e.g a project) without breaking the system-wide Perl.		Installing a custom version of Perl just for a single user (e.g a project) without breaking the system-wide Perl.
		+
		+	Packages required:
		+
		+	gcc patch bzip2 gcc-c++ make automake

	As the unprivileged user:		As the unprivileged user:

@@ Line 11: / Line 11: @@
 * http://search.cpan.org/~ironcamel/Dancer-Plugin-DBIC/lib/Dancer/Plugin/DBIC.pm
 * http://search.cpan.org/~flora/DBIx-Class-PassphraseColumn-0.02/lib/DBIx/Class/PassphraseColumn.pm
 == Tips ==

← Older revision		Revision as of 10:17, 1 April 2015
Line 11:		Line 11:
	* http://search.cpan.org/~ironcamel/Dancer-Plugin-DBIC/lib/Dancer/Plugin/DBIC.pm		* http://search.cpan.org/~ironcamel/Dancer-Plugin-DBIC/lib/Dancer/Plugin/DBIC.pm
	* http://search.cpan.org/~flora/DBIx-Class-PassphraseColumn-0.02/lib/DBIx/Class/PassphraseColumn.pm		* http://search.cpan.org/~flora/DBIx-Class-PassphraseColumn-0.02/lib/DBIx/Class/PassphraseColumn.pm
		+
		+	== Tips ==
		+
		+	=== Mixing STDOUT and STDERR output in the right order ===
		+
		+	STDOUT and STDERR are block buffered when there is no terminal, or line buffered when there is a terminal. This has the unfortunate side effect of making output from print/warn mess up when running a script from cron when the same script works perfectly run from the command line.
		+
		+	Redirect STDERR to the same stream as STDOUT (equiv to 2>&1 in bash) - this isn't essential, but makes it easier to pipe the output through tail/mail/etc, or redirect the output to a logfile.
		+
		+	close(STDERR);
		+	open(STDERR, ">&STDOUT");
		+
		+	Make both streams non-buffering
		+
		+	select(STDERR);
		+	$\| = 1;
		+	select(STDOUT);
		+	$\| = 1;
		+
		+	Alternatively, instead of the select() above, you can use IO::Handle
		+
		+	use IO::Handle;
		+	STDERR->autoflush(1);
		+	STDOUT->autoflush(1);