Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Lady_Aleena's scratchpad

by Lady_Aleena (Curate)
on Sep 07, 2007 at 20:54 UTC ( #637756=scratchpad: print w/replies, xml ) Need Help??

Module's I wrote for myself

Base::Inline Base::LineMagic Base::Menu Base::Page Base::Path Base::Style Date::Misc Date::Verify Date::Birth::DayStone Date::Birth::Flower Date::Birth::Stone Date::Birth::ZodiacStone Fancy::Function Fancy::Map Fancy::Rand Fancy::Splice Fancy::Split Fancy::Join Fancy::Join::Defined Fancy::Join::Grammatical Fun::AstroBody Fun::ConvertFileSize Fun::Numbers Fun::Refreshment Fun::SoundofMusicSong HTML::Attributes HTML::Elements HTML::Forms Random::Alpha Random::Descriptor Random::Food Random::GemMetalJewelry Random::Government Random::Insanity Random::Misc Random::Month Random::Range Random::SciFi Random::Size Random::SpecialDice Random::Thing Random::Time Random::Title Random::Water Random::Body::Function Random::Body::Modification Random::Color Random::Color::Hex Random::Color::VisiBone Random::Name::Pattern Random::Name::Triador Random::RPG::Alignment Random::RPG::Class Random::RPG::Event Random::RPG::Military Random::RPG::Monster Random::RPG::SavingThrow Random::RPG::SpecialAttack Random::RPG::Spell Random::RPG::Weapon Random::RPG::WildPsionics Random::RPG::MagicItem Random::RPG::MagicItem::Giant Random::RPG::MagicItem::Ring::SpellDoubling Random::RPG::World::HighLevelCampaigns::ChronologicalRating Random::RPG::World::HighLevelCampaigns::EcologicalRating Random::RPG::World::HighLevelCampaigns::MagicalRating Random::RPG::World::HighLevelCampaigns::TechnologicalRating Random::RPG::World::WorldBuildersGuidebook::ClimateTerrainSubsistance Random::RPG::World::WorldBuildersGuidebook::Coastlines Random::RPG::World::WorldBuildersGuidebook::CulturalCharaceristic Random::RPG::World::WorldBuildersGuidebook::EarthquakeActivity Random::RPG::World::WorldBuildersGuidebook::GovernmentForm Random::RPG::World::WorldBuildersGuidebook::Hydrology Random::RPG::World::WorldBuildersGuidebook::LandWaterMasses Random::RPG::World::WorldBuildersGuidebook::LocalDistribution Random::RPG::World::WorldBuildersGuidebook::LocalPopulation Random::RPG::World::WorldBuildersGuidebook::LocalTopography Random::RPG::World::WorldBuildersGuidebook::MountainPlacement Random::RPG::World::WorldBuildersGuidebook::MountainSize Random::RPG::World::WorldBuildersGuidebook::Pantheon Random::RPG::World::WorldBuildersGuidebook::PlanetaryTemperature Random::RPG::World::WorldBuildersGuidebook::PlateMovement Random::RPG::World::WorldBuildersGuidebook::PrevailingWinds Random::RPG::World::WorldBuildersGuidebook::Race Random::RPG::World::WorldBuildersGuidebook::RacePosition Random::RPG::World::WorldBuildersGuidebook::RegionalClimate Random::RPG::World::WorldBuildersGuidebook::RegionalDistribution Random::RPG::World::WorldBuildersGuidebook::SeasonalVariations Random::RPG::World::WorldBuildersGuidebook::SettlementPattern Random::RPG::World::WorldBuildersGuidebook::Size Random::RPG::World::WorldBuildersGuidebook::SocialAlignment Random::RPG::World::WorldBuildersGuidebook::TechnologyLevel Random::RPG::World::WorldBuildersGuidebook::VolcanicActivity Random::RPG::World::WorldBuildersGuidebook::WorldHooks Random::RPG::World::WorldBuildersGuidebook::WorldShape RPG::AssetCost RPG::CharacterMutation RPG::InterspeciesAge RPG::Monster RPG::RacialLanguages RPG::WeaponName RPG::Character::AbilityScores RPG::Character::Alignment RPG::Character::AttacksPerRound RPG::Character::Class RPG::Character::HitDice RPG::Character::ProficiencySlots RPG::Character::RealityBubble RPG::Character::WeaponSlots RPG::Character::WizardSkills RPG::Character::GameTables RPG::Character::GameTable::ArmorClass RPG::Character::GameTable::Psionics RPG::Character::GameTable::RogueSkills RPG::Character::GameTable::SavingThrows RPG::Character::GameTable::SpellProgression RPG::Character::GameTable::THAC0 RPG::Character::GameTable::TurningUndead RPG::Spell::List RPG::Spell::Book Util::Abbreviation Util::Columns Util::Convert Util::ExternalLinks Util::FamilyTree Util::Line Util::ListLengths Util::Movie Util::Number Util::People Util::QuoteAttribute Util::Sort Util::TransformName Util::WordFind Util::XanthSpecies Util::Data Util::Data::Compare Util::Twitter Util::Twitter::Data Util::Twitter::ListSort Zodiac::Chinese

%dayparts

if ($user_time < $dawn) { $daypart = 'night'; } elsif ($user_time < $noon) { $daypart = 'morning'; } elsif ($user_time < tmath($dusk, -1)) { $daypart = 'afternoon'; } else { $daypart = 'evening'; )

This is untested.

#!/usr/bin/perl use strict; use warnings; use Astro::Sunrise qw(sun_rise sun_set); sub tmath { my ($time, $offset) = @_; my ($hour, $minutes) = split(/:/,$time); $hour += $offset; return "$hour:$minutes"; } my $user_lon = -77.314444; my $user_lat = 39.534444; my $user_spot = { lon => $user_lon, lat => $user_lat }; my $noon = '12:00'; my $dawn = sun_rise($user_spot); my $dusk = sun_set ($user_spot); my %dayparts = ( 'morning' => { 'begin' => $dawn, 'end' => $noon}, 'afternoon' => { 'begin' => $noon, 'end' => tmath($dusk, + -1) }, 'evening' => { 'begin' => tmath($dusk, -1) , 'end' => tmath($dusk, + 1) }, 'night' => { 'begin' => tmath($dusk, 1) , 'end' => $dawn} );

Reminder code

my @monsters = map{chomp $_; $_} <$word_find_list>; my @items; for my $monster (@monsters) { push @items, [$monster, { class => 'monster_item' }]; } my @gems = <$gems_file>; chomp @gems; my %alpha_gems = alpha_array(\@gems); for my $gems (keys %alpha_gems) { my @list = @{$alpha_gems{$gems}}; $alpha_gems{$gems} = undef; @{$alpha_gems{$gems}} = map { "$_ ".external_links([['Wikipedia', $_ +, $_],['Google', searchify($_), $_]]) } sort @list; }

is now

my @monsters = map { chomp $_; [$_, { class => 'monster_item' }] } <$w +ord_find_list>; my @gems = map { chomp $_; "$_ ".external_links([['Wikipedia', $_, $_] +,['Google', searchify($_), $_]]) } <$gems_file>; my %alpha_gems = alpha_array(\@gems);

Notes to self

  • Do not print Dumper when trying to display a script in a browser without using <pre> tags.
  • Do print Dumper when something goes wrong. The data structure is usually the problem.
  • If one changes a variable, check the whole script for that variable to make sure that the results will be as expected.
  • rename will not create directories, be sure to use mkdir in conjunction with rename if the files are also being moved to a new directory.

Notes from others

  • bart: LA it's often considered good practice to increment the variable in a continue block, to prevent running out of sync when using next.
  • Intrepid: btw, i wish i could explain to a lot of people i know, how efficacious Lady_Aleena's explained strategy can be (to use coding and thinking about coding to master a disquieted state of mind)
  • ambrus: In general, use magic only when normal solutions aren't enough.
  • GrandFather: each time through its loop while asks itself "Can I loop this time? Can I? Can I Can I? Please?" and if the answer is no (false statement) while gets grumpy and stops
  • GrandFather: First make it work (using the easiest to maintain code you can) then, only if you need to, make it faster. (from: Re^5: I have a list expanding when I don't want it to)
  • GotToBTru: imho, you have nothing that needs defending. (from the Chatterbox on April 21, 2015)
  • SuicideJunkie: "you have nothing that needs defending" might be better stated as "you have a lot that needs no defending" (from the Chatterbox on April 21, 2015)

Things I should get a grip on

  • objects - After seeing how little objects do, I will keep my procedural code. Objects may be self-aware, but they are dumb as dirt. I write subroutines to work with predefined and preprocessed data. I have seen objects with predefined data, but I don't know how they do it. For example Net::Twitter::Lite knows where the data is and grabs it without me having to lug around the entire Twitter database with me. Why can't my objects have predefined data too?

    I write modules to reduce repetitive code. One repetitive thing is building hashes; so I build them in a module and write subroutines to return the data (possibly more processed than in the hash). From what I've been told in various threads objects don't do that. If that is the case, then objects are not for me.

    I have three threads that show I can not get a grip on objects.

  • SQL - I'm waiting for SQL to be standardized. I don't want to have to choose a flavor of SQL and then find out it is not compatible with where I am sending the SQL files.
  • version control
  • testing

Laundry day

This code was written for me by atcroft on 2015-03-11.

use strict; use warnings FATAL => qw( all ); use Data::Dumper; $| = 1; $Data::Dumper::Deepcopy = 1; $Data::Dumper::Sortkeys = 1; local $\ = "\n"; my @laundry_loads = ( 'cottons', 'cold water items', 'sheets', 'uniforms', 'clothing of the day' ); my @laundry_tasks = ( 'wash', 'dry', 'fold' ); sub wash { my ( $load, $loads ) = @_; } sub dry { my ( $load, $loads ) = @_; } sub fold { my ( $load, $loads ) = @_; } my @progress = ( undef, undef, undef, ); my %task; foreach my $i ( 0 .. $#laundry_tasks ) { $task{ $laundry_tasks[$i] } = $i; } while ( my $load = shift @laundry_loads or scalar keys %task ) { print ""; foreach my $current_task ( reverse @laundry_tasks ) { if ( not scalar @laundry_loads and not(defined $task{$current_task} and defined $progress[ $task{$current_task} ] ) ) { delete $task{$current_task}; next; } if ( defined $progress[ $task{$current_task} ] ) { my $current_load = $progress[ $task{$current_task} ]; my $activity = qq{$current_task $current_load}; print $activity; if ( $current_task eq q{wash} and defined $progress[ $task{$current_task} ] ) { } if ( $current_task eq q{dry} and defined $progress[ $task{$current_task} ] ) { } if ( $current_task eq q{fold} and defined $progress[ $task{$current_task} ] ) { if ( $current_load =~ /sheets|uniforms|clothing of the day/ ) { my $new_load = $current_load eq 'sheets' ? 'laundry' : $current_load; print "put away $new_load"; } if ( $current_load eq 'sheets' ) { print 'vacuum the house'; print 'make the bed'; } if ( $current_load eq 'uniforms' ) { print 'take showers'; } pop @progress; } } } if ( defined $load ) { unshift @progress, $load; } else { unshift @progress, undef; } }

The output is...

$ perl la-2.pl 2>&1 wash cottons dry cottons wash cold water items fold cottons dry cold water items wash sheets fold cold water items dry sheets wash uniforms fold sheets put away laundry vacuum the house make the bed dry uniforms wash clothing of the day fold uniforms put away uniforms take showers dry clothing of the day fold clothing of the day put away clothing of the day
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[karlgoethebier]: good morning
[Corion]: Discipulus: Ah, so he's the one getting almost drowned all the time - waterpolo certainly is no sport for me ;)
[karlgoethebier]: Corion: buy enough coke and popcorn...
[marto]: Corion the cinema is a lot more expensive than I remember :P
Discipulus hates the smell of popcorn at cinemas..
[Corion]: marto: Yeah, most of the time, I prefer to watch stuff at home, where we can sit on the couch, order pizza and pause the movie. But for kids,...
[Corion]: ... I think the "cinema experience" is something of its own. But certainly, bringing an USB stick home is much easier ;-D

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2017-07-24 08:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (348 votes). Check out past polls.